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49-93-66-66 
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Commission paritoire : 

Demande en cours. 
Les revues qui choisissent 
d'etre reellement au ser- 
vice du Lecteur, en ne 
I'obligeant pas a glaner. 
dans plusieurs magazines, 
les renseignements con- 
cernant so machine, ne 
beneficient pas du nume- 
ro de Commission Pari- 
taire, et pas davantage 
des tarifs postaux reduits. 



Vous etes formidables ! 
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ES LECTRICES et LECTEURS de Tremplin Micro 
sont reellement formidables, et j'en ai quoti- 
diennement la preuve, en lisant leurs lettres ou 
en leur parlant... au telephone. 

J'en connais pourtant trois qui vont m'accuser de ne 
voir que le bon cote des choses, et de ne point publier 
leurs critiques. Pourquoi, en verite, vanterais-je les 
"merites" que s'attribue I'un d'eux ; heureux de pira- 
ter logiciels et disquettes, et de photocopier — dit-il 
— les soixante pages d'une revue ininteressante (la 
notre)... plutot que de I'acheter. Que de temps et de 

papi§r p§rdu§ peur d§§ iRfsFmafisRS ci#p8UFvu§§ 

d'interet ! Je n'aimerais pas etre a la place du cochon 
de payant (car il existe) victime de cette inutile et 
onereuse hemorragie de feuilles volantes ! 

Oui, vous etes formidables, et nous commencons 
dans ce numero, a publier certains de vos program- 
mes. Nous avons d'ailleurs, dans ce domaine, beau- 
coup d'autres projets. Nous en reparlerons bientot. 

La majorite des Lectrices et Lecteurs de Tremplin 
Micro est favorable a la presence, dans la revue, 
d'une publicite informative (voir formative). 

Tromplin Micro ouvrira bientot oca colonnes aux 

annonceurs, mais le nombre des pages redactionnel- 
les^ n'en souffrira pas, au contraire. La publicite doit 
apporter un plus... ou ne pas etre. 

Une bonne nouvelle pour 1986 : votre magazine 
paraTtra 6 fois par an (au lieu de 5). Le prochain 
numero sera mis en vente le 9 janvier. 

Et maintenant, place a la programmation ! 
Amicalement 

GUY-HACHETTE. 
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ProDOS 


CARTE SOURIS 



What time is it 
Miss Mouse ? 




par Claude AUBRY 



Quelle heure est-il ? Demandez-le a la souris APPLE, 
elle vous repondra en affichant constamment, precise- 
ment, et imperturbablement I'heure, la minute et la 
seconde dans un coin de votre ecran. 

Pour afficher le compteur, il suffit d'appeler le pro- 
gramme par CALL 768. II restera present sur I'ecran 
tant que vous ne taperez pas CTRL RESET, et comptera 
soigneusement le temps quelle que soit votre activite (il 
marque tout de meme une pause durant les acces dis- 
que, le temps de respirer, en somme !). 

Pour le mettre a I'heure, il faut "POKER" les valeurs 
convenables aux adresses "COMPTEUR". 



LE PROGRAMME 



Le court programme en assembleur 
6502 (il "tient" dans la zone $300- 
3CF) utilise la possibilite pour ('inter- 
face souris de generer des interrup- 
tions tous les soixantiemes de 
seconde lorsqu'on choisit le mode 
interruption a chaque rafraTchisse- 
ment d'ecran. 

Lorsque ce mode est choisi, I'ordina- 
teur interrompt la tache qu'il etait en 
train d'accomplir et va executer un 
programme dont I'adresse est don- 
nee en $3FE-3FF. II suffit de fournir a 



ce vecteur I'adresse de notre pro- 
gramme d'horloge et le tour est gen- 
timent joue. 

Cette horloge peut etre utilisee avec 
n'importe quel programme ne faisant 
pas appel a la souris et j'espere 
qu'elle vous amusera : vous pourrez 
compter le temps passe a repondre a 
un INPUT, fabriquer un reveil, etc. 

Naturellement, toute routine utili- 
sant la plage $300-3CF detraquera 
irremediablement votre Apple- 
chrono... ■ 
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Assemblage par ProCODE 



300 
301 
304 
306 
308 
30 B 

30 E 
310 
313 
315 
317 

31 A 
31B 



78 

20 35 03 

A9 74 

A2 03 

8D FE 03 

8E FF 03 



AO 
20 
AO 
A9 
20 

58 
60 



19 
1C 
12 
09 
1C 



03 



03 



31C : 


48 






31D : 


Bl 


06 




31F : 


AE 


30 


03 


322 : 


AC 


31 


03 


325 : 


8D 


33 


03 


328 : 


8E 


34 


03 


32B : 


68 






32C : 


20 


32 


03 


32F : 


60 









1 

2 
3 
4 
5 
6 
7 
8 
9 

10 

1 1 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



WHAT TIME IS IT MISS MOUSE 



Une utilisation originate de la 
souris pour Apple //cet He. 
Claude AUBRY (septembre 1985) 



TMP 

* 


EQU 


$6 


; POINTEUR TEMPORAIRE 


SETM0U5E 


EQU 


$12 




SERVEMOUSE 


EQU 


$13 




INITMOUSE 

* 


EQU 


$19 




WARM 


EQU 


$3D0 


; RESTART PRODOS 


VECINT 


EQU 


$3FE 


; VECTEUR interruption 


ECRAN 


EQU 


$400 


Debut de I'ecran 


COUT 

* 


EQU 


$FDED 


; SORTIE DE 1 CARACTERE 



DEBUT DU PROGRAMME 



Programme oppele par CALL 768 



28 




ORG 


$300 




29 


* 






Interdit les interruptions 


30 


BEGIN 


SEI 




31 




JSR 


CHECKSLOT 


; OU EST LA CARTE SOURIS 


32 




LDA 


£ INTERUP 


LSB programme inter 


33 




LDX 


£ INTERUP 


HSB programme inter 


34 




STA 


VECINT 


; LSB VECTEUR interruption 


35 




STX 


VECINT+1 


; HSB 


36 


* 








37 




LDY 


£INITMOUSE 


Pour syncro 


38 




JSR 


CALLCARD 




39 




LDY 


ESETMOUSE 


; Pour mode 


40 




LDA 


£% 0000 1001 


; Selection mode inter 


41 




JSR 


CALLCARD 


; Par screen refresh 


42 


* 








43 




CLI 




; Retablit interruptions 


44 




RTS 




; Retour basic 


45 

,1 A 


* 






* 



47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 



SOUS PROGRAMME CALLCARD 



CALLCARD 



PHA 




on sauve l accu 


LDA 


(TMP).Y 


recherche offset 


LDX 


CN 


adresse (HSB) carte 


LDY 


NO 


et N° de slot 


STA 


TOCARD + 1 


vectorise 


STX 


TOCARD+2 


pour saut indirect 


PLA 




recupere accu 


JSR 


TOCARD 


saut indirect a la carte 


RTS 




et retour 



(Suite page 5) 
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Ill 



330 : 

331 : 



00 
00 



332 : 4C 00 00 



335 : 


A2 


07 




337 : 


A9 


00 




339 : 


85 


06 




33B : 


A9 


C8 




33D : 


85 


07 




33F : 


C6 


07 




341 : 


CA 






342 : 


30 


21 




344 : 


AO 


OC 




346 : 


Bl 


06 




348 : 


C9 


20 




34A : 


DO 


F3 




34C : 


AO 


FB 




34E : 


Bl 


06 




350 : 


C9 


D6 




oOz . 


DO 


EB 




354 : 


A5 


07 




356 : 


80 


34 


03 


359 : 


8D 


30 


03 


35C : 


OA 






35D : 


OA 






35E : 


OA 






35F : 


OA 






360 : 


8D 


31 


03 


363 : 


DO 


OE 




365 : 


AO 


05 




367 : 


B9 


CA 


03 


36A : 


20 


ED 


FD 


36D : 


88 






36E : 


DO 


F7 




370 : 


4C 


DO 


03 


373 : 


60 







374 : 78 



375 : 

376 : 



48 
9A 



60 
61 
62 
63 
64 

65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 

m 

103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 



CN 
NO 

* 

TOCARD 



HEX 00 
HEX 00 

JMP $0000 



stock HSB AD carte 
stock Numero slot 

operand modifie par prog 



Recherche du slot ou est la carte MOUSE 



Doc. page 54 Apple mouse user's manual 



* 






+ 


* 








/— i i r /* i/ r i f\~T 

CHtCKSLOT 


LDX 


£$07 


■ on teste 7 slots 




LDA 


r ff ri n 

£$00 


on commence la recherche 




CT A 


TAA D 


aux adresses hautes 




LDA 


£$C8 


soit $C700 




C T A 

STA 


TMP + 1 


en tait C800 decremente 




DEC 


TMP + 1 


on decremente 




UtA 




X sert de compteur 




BMI 


EXIT 


si erreur carte 




LDY 


£$0C 


octet de signature 




i r\ a 


(TMP).Y 


doit etre la 




L/vir 


f tt on 


et egal a $20 




n m r 

BNE 


LOOP1 


pas la ! slot precedent 




Lu 1 


X>4>rD 


2' test de signature 




LDA 


(TMP),Y 


en CN $FB 




CMP 


£$D6 


est-ce bien $D6 ? 




BNE 


LOOP1 


non slot precedent 




LDA 


TMP+1 


oui on sauve l adresse 




STA 


TOCARD + 2 


pour plus tard 




STA 


CN 


utilise par callcard 




ASL 




on decale 




ASL 




de 4 octets 




ASL 




pour faire passer 




ASL 




HSB en LSB 




STA 


NO 


numero de slot 


* 


BNE 


START 


et retour 


EXIT 


LDY 


£$05 


message d'erreur 


ERRLOOP 


LDA 


NOCARDMSG-1 ,Y 


si pas de carte 




JSR 


COUT 


on envoie le message 




DiY 




£CARD §t en 8FF§t§ 


* 


BNE 


ERRLOOP 




WARMSTART 

• 


JMP 


WARM 




START 

* 


RTS 






* 






* 



PROGRAMME D'INTERRUPTION 



* Ce programme est effectue 60 fois 

* par seconde. 



INTERUP 



EQU 
SEI 

PHA 
TXA 



; On interdit les interruptions 
; SAUVEGARDE DU CONTEXTE 

(Suite page 6) 
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377 : 48 

378 : 98 

379 : 48 

37 A : AO 13 

37C : 20 1C 03 

37F : EE C4 03 

382 : AD C4 03 

385 : C9 3B 

387 : DO 29 

389 : A9 00 

38B : 8D C4 03 

A2 05 



38E 



390 : 
393 : 

396 : 
398 : 

39A : 
39C : 
39F : 
3A0 : 
3A3 : 

3A6 : 
3A8 

3AA 
3AC 

3AF 
3B0 



FE C5 03 

BD C5 03 

C9 3A 

90 18 

A9 30 

9D C5 03 
CA 

FE C5 03 

BD C5 03 

C9 36 

DO 08 

A9 30 

9D C5 03 

CA 

10 DE 



3B2 
3B4 
3B7 
3BA : CA 
3BB : 



A2 05 
BD C5 03 
9D 00 04 



10 F7 



3BD : 68 



123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

16S 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 



SKIP 

1 



PHA 
TYA 
PHA 






LDY 
JSR 
INC 
LDA 


£SERVEMOUSE 
CALLCARD 
SOIXANT 
SOIXANT 


LQ souns esT-eiie cuuic unci 

; Compte les 60e de seconde 
Ceia tqit-ii une seconatj . 


CMP 
BNE 


£59 
SKIP 


; Pas encore : on saute 


LDA 
STA 


£0 

SOIXANT 


; Oui : on remet a 

; Le compteur des soixantiemes 


LDX 


£5 


; 6 DIGITS 


EQU 






INC 
LDA 


TEMPS, X 
TEMPS, X 


; Et on incremente les unites 
; Combien d'unites ? 


CMP 
BCC 


£'9 + 1 
SKIP 


; + de 9 ? 

Non : on saute la suite 


LDA 
STA 
DEX 
INC 
LDA 


£'0 

TEMPS. X 

TEMPS, X 
TEMPS, X 


; Sinon on remet les unites... 
; ... a 0... 

; ... et on incremente les dizaines 
Combien ae aizaines r 


CMP 
BNE 


£'6 
SKIP 


; + de 6 ? 

; Non : saute la suite 


LDA 
STA 


£'0 

TEMPS, X 


; Sinon on remet les DZ a 


DEX 
BPL 


LOOPTIME 


; Les 6 chiffres ? 
; Non : on boucle 


EQU 


* 


* 



PROGRAMME D'AFFICHAGE 



* On peut ruser et supprimer I'affichage (mais non le cumul du temps) 

* en poquant un code bidon a la place du STA ECRAN.X en le chan- 

* geant en LDA par exemple. 



* ainsi POKE 951.189 

* POKE 951,157 

LDX £5 
LOOP LDA TEMPS, X 

STA ECRAN.X 
DEX 

BPL LOOP 

* 

PLA 



; arrete I'affichage 

; LE RETABLIT 

; 6 CHIFFRES 

; On recupere... 

; ... et on affiche 

; Encore ? 

: Oui 
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JDC 


on 


1 QA 
1 HO 


TV A 

1 Y A 


3BF : 


68 


187 


PLA 


3C0 : 


8A 


188 


TXA 


3C1 : 


68 


189 


PLA 






190 * 




3C2 : 


58 


191 


CLI 


3C3 : 


40 


192 


RTI 



3C4 : 00 

3C5 : 30 30 30 
30 30 30 



3CB : C4 D2 CI 
C3 A3 



193 
194 
195 
196 
197 

198 * 

199 * 

200 SOIXANT 

201 * 



ON RESTITUE LE CONTEXTE 



On retablit les inter. 
... et on report 



202 
203 
204 
205 
206 
207 
208 



COMPTEURS 



TEMPS 



HEX 00 



ASC '000000' ; POKE965 + Y,Xpourmiseal'heure 



MESSAGE ERREUR 



NOCARDMSG ASC "DRAC£" ; MESSAGE si pas de carte 



Si vous ne possedez pas d'assembleur, vous pouvez saisir les 26 lignes ci-apres. Tapez, 
d'abord CALL-151, suivi de RETURN, puis la valeur indiquee, sans oublier un RETURN a la fin 
de chaque ligne. 

Quand vous aurez termine, enregistrez votre programme sur disquette par un BSAVE 
MOUSE. TIMER, A768.L208 (A$300,L$D0). 



VERIFICATION 



(en mode direct, apres CTRL-RESET) : 
T = : FORI = 768 TO 975 :T = T + PEEK(I) : NEXT : PRINT T Le resultat devra etre 21212. 



300 : 78 20 35 03 A9 74 A2 03 

308 : 8D FE 03 8E FF 03 AO 19 

310 : 20 1C 03 AO 12 A9 09 20 

318 : 1C 03 58 60 48 Bl 06 AE 

320 : 30 03 AC 31 03 8D 33 03 

328 : 8E 34 03 68 20 32 03 60 

330 : 00 00 4C 00 00 A2 07 A9 

338 : 00 85 06 A9 C8 85 07 C6 

340 : 07 CA 30 21 AO 0C Bl 06 

348 : C9 20 DO F3 AO FB Bl 06 

350 : C9 D6 DO EB A5 07 8D 34 

358 : 03 8D 30 03 OA OA OA OA 

360 : 8D 31 03 D0 0E AO 05 B9 



368 


CB 


03 


20 


ED 


FD 


88 


DO 


F7 


370 


4C 


DO 


03 


60 


78 


48 


8A 


48 


378 


98 


48 


AO 


13 


20 


1C 


03 


EE 


380 


C4 


03 


AD 


C4 


03 


C9 


3B 


DO 


388 


29 


A9 


00 


8D 


C4 


03 


A2 


05 


390 


FE 


C5 


03 


BD 


C5 


03 


C9 


3A 


398 


90 


18 


A9 


30 


9D 


C5 


03 


CA 


3A0 


FE 


C5 


03 


BD 


C5 


03 


C9 


36 


3A8 


DO 


08 


A9 


30 


9D 


C5 


03 


CA 


3B0 


10 


DE 


A2 


05 


BD 


C5 


03 


9D 


3B8 


00 


04 


CA 


10 


F7 


68 


98 


68 


3C0 


8A 


68 


58 


40 


00 


30 


30 


30 


3C8 


30 


30 


30 


C4 


D2 


CI 


C3 


A3 



MOUSE.DEMO 



1 PRINT CHR$(4),"PR£0" 

5 PRINT CHR$(13); CHR$(4); "BRUN MOUSE TIMER" 

10 HOME 

1 5 VTAB 6: HTAB 7: PRINT "PROGRAMME DE MISE A L'HEURE" 

20 VTAB 1 2: PRINT "Donnez I'heure sous la forme HHMMSS" 

25 VTAB 17: HTAB 17 



30 FOR I = TO 5 

40 GET HS: IF H$ < "0" OR H$ > "9" THEN 40 
45 PRINT H$; 

50 POKE 965 + 1 , ASC(H$) 
60 NEXT 
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Nous repondons ici 
oux questions de 
lecteurs neophytes. 



• L 'Apple He 65C02 est-il vraiment compatible 
avec ses predecesseurs ? Est-il plus interessant 
et plus rapide ? 

II est entierement compatible avec I'Apple 
lie dont il utilise notamment les nouveaux 
iogiciels bases sur le concept graphique sou- 
ris (a condition d'etre equipe de la souris et 
d'une carte 80 colonnes, bien entendu). 
Pour le reste, Apple annonce une compatibi- 
lity a 93% avec les anciens Apple He, toutes 
versions confondues, ce qui n'est pas si mal. 
Incontestablement, quand il est totalement 
utilise, le 65C02 est plus rapide que le 6502. 
II dispose en effet de 10 instructions supple- 
mentaires et de 27 nouvelles possibilites 
d'adressage, autorisant des routines plus 
courtes. 

• Quels sont les pokes permettant d'ecrire 
dans les pages graphiques 7 et 2, puis de les 
afficher ? 

10 HGR : HGR2 : TEXT : HOME 

20 HCOLOR = 3: POKE 230,32: REM ECRI- 

TURE PAGE 1 
30 HPLOT0,0TO279.191 
40 POKE 230,64: REM ECRITURE PAGE 2 
50 HPLOT 0,191 TO 279,0: GOSUB 200: 

VTAB 22: PRINT "PAGE 1 AVEC TEXTE" 

60 REM PAGE 1 AVEC 4 LIGNES DE TEXTE 

70 POKE 49236,0: POKE 49235,0: POKE 
49239,0: POKE 49232,0 

80 GOSUB 200: REM PAGE 1 SANS TEXTE 

90 POKE 49234,0 
100 GOSUB 200: REM PAGE 2 
110 POKE 49237,0 
120 GOSUB 200: REM PAGE 1 
130 POKE 49236,0 

140 GOSUB 200: REM PAGE 1 AVEC TEXTE 
150 POKE 49235,0: HOME : VTAB 22: PRINT 

"PAGE 1 AVEC TEXTE" 
160 END 

200 VTAB 1: CALL — 198: GET R$: PRINT : 
RETURN 





PBATlQUe 

APPLE 



GRAPHISME ET SON SUR APPLE * 

Avez-vous deja traite le graphisme sur votre Apple 
(//+, He ou He) ? Quelle que soit votre reponse, 
sachez que, de toute facon, vous apprendrez quel- 
que chose dans le troisieme volet de "PRATIQUE DES 
APPLE", consocre au graphisme et au son. 
J.-C. Fantou, outeur de cet ouyrage, nierite des elo- 

ges. Voila de la bonne besogne ! Tout est clair, 
exact, documented Gageons que, grace aux conseils 
et routines de ce specialiste, bon nombre de pro- 
grammers (debutants ou non) vont s'interesser au 
graphisme et au son. 

Cela nous promet, pour les mois a venir, d'inedits lis- 
tages, capables de generer de fantastiques ima- 
ges... ou les mesures inattendues de compositeurs 

en herbe . ' IDIT10NS RADIO 9. n» Jacob - 75006 PARIS (145 F) 

LE FUTURAUJOURD'HUI 

On ne presente pas Albert Ducrocq, professeur a la 
Fondation nationale des Sciences politiques, journa- 
liste, ecrivain et chroniqueur ecoute a Europe 1 . 
On ne presente pas davantage son livre, accueilli par 
des critiques elogieuses dans toute la presse, 
lorsqu'il a paru, en 1984, chez Plon. 
Les 15 annees qui vont changer notre vie : I'informa- 
tique, I'electronique. les robots, mais aussi la bio- 
industrie, etc. 

Le Futur aujourd'hui, publie en livre de poche, dans 
la collection Marabout Universite, va toucher de nou- 
veaux et nombreux lecteurs... vous peut-§tre ! 

Clement RE NMD. 
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Communications 



II y a un abonne au numero 
que votre Apple a demande... 



Branche, cable : la communication est a I'ordre du jour. 
Malheureusement, nos beaux ordinateurs n'aiment guere 

communique^ et le jour oil Ton pourra raccorder une 

machine au telephone aussi simplement qu'on branche 
aujourd'hui une prise de courant ou un moniteur video 
ne semble pas encore arrive... 



Connecter son Apple au telephone 
c'esl, soudain, pouvoir communiquer 
avec le monde entier comme avec son 
voisin, pour transmettre, recevoir ou 
echanger informations, graphismes ou 
programmes. 

Pour cela, il faut disposer d'une inter- 
face RS-232 (carte- Serie) et d'un 
modem ou, solution de luxe, d'une 
carte-modem directement enfichable 
dans I'Apple. A cela il faut ajouter un 
logiciel de communication sans lequel 
votre machine serait incapable du 
moindre dialogue intelligent. Car la 
communication, ca se gere. 
Si certains modems, comme la carte 
Appletell par exemple, sont directe- 
ment livres avec un logiciel performant, 
il n'en est pas de meme pour d'autres. 
Aussi les concepteurs de softs se sont- 
ils penches sur la question et 
proposent-ils desormais des solutions. 
Pour vous, nous venons de tester Ver- 
sion Com, de la turbulente societe fran- 
caise Version Soft, et Telplus de Micro- 
mat, une autre societe francaise. 

Version-Corn 

Un joli coffret, un manuel copieux, une 
disquette : il n'en faut pas plus pour 
gerer les communications sur un 
Apple. Mais pas n'importe lequel : 
Version-Corn ne reconnait que deux 
machines, I'Apple lie et le nouvel 
Apple lie (version 65C02). Si vous pos- 



sedez un Apple plus ancien, il vous fau- 
dra done retourner a la case depart et 
passer chez votre revendeur pour faire 
monter le kit de mise a niveau. 

Cflte modems, Version-Corn est plus 
souple et supporte tous les modems 
externes raccordes a la carte SSC Super- 
sede ou a la sortie serie du lie, ainsi 
que les modems Apple-Sectrad, Digite- 
lec et Ultec. II reconnait egalement les 
cartes Appletell, Apple-Cat II (de Nova- 
tion) et les MID Supercom ou S2. Un 
bel exploit quand on sail que pratique- 
ment aucune de ces cartes ne fonc- 
tionne sur les memes parametres ! 
Avant d'acheter Version-Corn, il sera 
done prudent de vous assurer que le 
materiel dont vous disposez deja est 
bien compris dans la liste ci-dessus. II 
vous suffira alors de vous reporter au 
chapitre qui lui est consacre dans la 
documentation livree avec le logiciel 
pour savoir dans quel slot inserer la 
carte (e'est parfois essentiel !) ou com- 
ment regler les micro-switches de votre 
interface. Les explications de I'auteur, 
bien que parfois un peu disseminees, 
ont le merite d'amener tres vite au 
reglage ideal et done a un fonctionne- 
ment correct... Bravo ! 

Fidele au concept de la souris, Version- 
Corn vous obligera a cliquer. Quelques 
secondes apres ('installation du logi- 
ciel, une ligne de commandes apparait 
en haut de I'ecran et permet d'ouvrir 
des fenetres pour choisir la fonction 



desiree : nume>otation automatique, 
operations sur fichier, edition, transfert, 
appel de procedure, etc. On ne jongle 
doRc plus avec 6es codes-cohfrole et 
cette conception est bien pratique. 
Version-Corn est aussi capable de tra- 
vailler tout seul. Pour cela, il faut 
d'abord cliquer I'option Commencer 
I'apprentissage; le programme memo- 
rise alors toutes les operations que vous 
executez a partir de ce moment : il 
enregistre la procedure. Laquelle peut 
ensuite etre stockee sur disquette et etre 
executee automatiquement par la suite. 
On retrouve la I'une des fonctions 
ayant contribue au succes de la carte 
Appletell, et il faut reconrtaitre que 
e'est tres pratique, meme s'il y a des 
limitations (par exemple un numero qui 
ne repond pas, alors que vous etes en 
mode apprentissage). 
Version-Corn autorise le transfert de 
fichiers en emission comme en recep- 
tion, la memorisation, I'impression et 
permet, en fait, de travailler a distance 
avec une autre machine sans se preoc- 
cuper de la liaison telephonique. La 
seule limitation concernera evidem- 
ment la vitesse de transmission : 300, 
600 ou 1200 bauds, ce n'est pas bien 
rapide ! 

Communiquer 
avec qui ? 

Version-Corn se revele tres utile dans 
tous les cas ou itest necessaire de relier 
deux machines, meme de marques dif- 
ferentes, pour des echanges d'informa- 
tions. C'est alors un logiciel souple et 
fiable. 

En revanche, des que Ton commence a 
vouloir varier les plaisirs en multipliant 
le nombre de correspondants, on se 
heurte a de petits problemes. Par exem- 
ple, ne comptez pas transformer votre 
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Apple He en Minitel : I 'interface serie 
du He refusant la norme V 23 (75/1200 
bps). Meme chose, d'ailleurs, sur le He 
et la plupart des modems : seules les 
cartes Appletell et Novation permettent 
I'acces aux serveurs a la norme Video- 
tex. Les serveurs ame>icains (norme 
Bell 103) sont, quant a eux, reserves 
aux possesseurs d'une carte Appletell, 
la seule qui accepte le 300 bauds full 
duplex. Autant de limitations parfois 
bien frustrantes, qui s'expliquent 
davantage par les limitations des 
modems que par celles du logiciel, evi- 
demment incapable d'appeler des fonc- 
tions qui n'existent pas. 
L'autre probleme rencontre concerne la 
numerotation et la reponse automati- 
que. Malgr£ son prix £lev£, le modem 
Apple, fabrique par Sectrad, ne sait pas 
composer les numeros ni se connecter 
automatiquement. Adieu done les pro- 
cedures de Version-Corn ! 
Version-Corn met enfin en evidence les 
dramatiques limitations de I'Apple He 
•pour ce qui concerne les communica- 
tions, de nombreuses options, prevues 
par le programme, etant interdites par 
les lacunes de la machine. 

Telplus 

Produit par Micromat, Telplus ne fonc- 
tionne que sur les Apple II et He dotes 
d une carte Super-Serie et d'un modem 
ou de la carte Adaptel Micromat. 

— version serie : la 5SC Apple doit etre 
raccordee a tout modem conforme aux 
normes V21 (Transpac 306 bauds), V23 
(emission 75 bps, reception 1 200 bps) ; 

— version Adaptel : cette carte specifi- 
que, reliee a un Minitel, permet d'utili- 
ser le modem integre du Minitel en 
mode V22 (1200/1200 bps). 

Cette derniere solution est fort attirante 
pour lous ceux qui habitent en zone 
annuaire electronique et qui disposent 
done d'un Minitel gratuit. La carte 
Adaptel est annoncee par Micromat au 
prix de 450 F... Nous ne vous en dirons 

Prix & adresses 

Version-Corn : chez tous les revendeurs 
Apple. Prix : 900 a I 000 F. 
Version-Soft, 19 rue Ganneron, 75018 
Paris. T6I.: (1) 43-87-94-87. 

Telplus : en venle chez International 
Computer (26 rue du Renard, 75004 
Paris), Microshop (6 rue de Chateaudun, 
75009 Paris), IVS (10 rue de Montesson, 
95870 Bezons) ou par correspondance 
chez Micromat. Telplus : 800 F. Trans- 
can : 450 F. 

Micromat, BP 63, 93130 Noisy-le-Sec. 
Tel: (1) 48-49-16-29. 



pas plus sur son tonctionnement car il 
nous a ete impossible de nous la 
procurer. 

Si le coffret de Telplus est prometteur, 
la doc livree avec le logiciel est, elle, a 
la limite de I'indigence. Au lieu d'indi- 
quer en quelques lignes les reglages a 
effectuer sur la carte Super-Serie pour 
une configuration rapide, on se con- 
tente de vous renvoyer a son mode 
d'emploi. Leger... 

Heureusemeni, une fois I'interface 
parametree, les menus (au nombre de 
deux) sont clairs. On choisit une 
option, le programme se charge et 
s'execute. Le demarrage d'une commu- 
nication est simple, de meme que le 
choix d'un mode de communication ou 
d'une configuration. Avec deux drives, 
ca va meme tres vite : disquette pro- 
gramme dans I'un, disquette fichier 
dans l'autre, tout tourne sans la moin- 
dre intervention. Avec un seul drive, en 
revanche, on n'arrete pas de changer 
de disquettes. Enervant. 
Vendu 800 F, Telplus a des ambitions 
limitees et se contente d'une emulation 
Minitel simplifiee. Les touches de fonc- 
tion du Minitel sont simulees par I'asso- 
ciation de Escape et d'une lettre cle 
(ESC-E = envoi, ESC-S - sommaire, 
etc.). Quant au graphisme, il est "sim- 
plifies ce qui, en clair, veut dire qu'il 
est remplace par des signes etranges, 
sans signification. Si le serveur Minitel 
appele n'envoie que des pages graphi- 
ques, bonjour les degats ! S'il envoie 
beaucoup de texte, vous pourrez I'ulili- 
ser. C'est le cas de I'annuaire electroni- 
que et de certaines banques de 
donnees. 

Telplus permet, en mode terminal, 
d'imprimer les pages affichees ou de 
les stocker sur disquette en DOS 3.3. II 
est aussi livre avec un utilitaire qui 
assure la conversion des fichiers 
Wordstar, Applewriter ou Visicalc, ce 
qui ouvre de nombreuses possibilites 
dans le cas d'echanges avec un autre 
utilisateur dote d'une configuration 
identique. 

Transcan 

Dans la Coulee, nous avons aussi teste 
Transcan. C'est un petit logiciel sans 
pretentions (450 F), construit sur les 
memes bases que Telplus et dont le 
seul r6le consiste a se connecter a 
Transpac et a rechercher des numeros 
d'acces aux banques de donnees. On 
indique au logiciel le nume>o de depart 
et il «scanne» jusqu'a ce qu'une con- 
nexion intervienne. Transcan signale 
alors sa reussite, stocke le numero sur 
disque et continue. Vous pouvez ainsi 
vous constituer un veritable annuaire 



des banques de donnees, y compris de 
celles dont le numero est confidentiel. 
Reste a savoir comment vous I'exploite- 
rez ensuite. N'oubliez pas que cette 
recherche suppose que vous soyez 
d'abord connecte a Transpac et que les 
PTT commencent a facturer la commu- 
nication a ce moment-la. Un -scan- 
ning" de deux heures risque done de 
couter cher. 

Rendre 
les modems 
intelligents 

Un Apple tout seul ou avec modem ne 
sait pas communiquer. Un logiciel 
d'exploitation est done indispensable 
des lors que Ton souhaite imprimer, 
m£moriser ou transmettre des donnees. 

Version-Corn est le premier logiciel 
reellement universel... ou presque. 
Facile a parameter et a utiliser, il 
resout bien des problemes de compati- 
bility et constitue un excellent outil 
pour qui souhaite relier plusieurs 
machines par telephone interpose. II 
autorise aussi I'acces aux banques de 
donnees a vocation professionnelle. En 
revanche, les applications grand 
public, normalement accessibles par 
Minitel, restent difficiles a exploiter et, 
laute d'une carte Appletell, il ne taut 
pas esperer afficher les graphismes que 
diffusent les serveurs comme le Pari- 
sien Libere. AZ et les autres. 
Telplus peut, quanl a lui. constituer un 
pont entre deux machines, d'autant que 
le logiciel n'est pas protege et peut 
done etre ouvert et modifie par tout 
bon programmeur. Sa fonction emula- 
tion Minitel permet effeclivement de 
dialoguer avec des serveurs grand 
public, a condition de se salislaire de 
I'alfichage sans graphisme. 
Si vous connaissez vos correspondants, 
Version-Corn vous permettra de dispo- 
ser d'un excellent utilitaire de commu- 
nication pour transmettre ou recevoir 
des donnees, meme en votre absence. 
Les fanas de Calvados apprecieront 
aussi les fonctions d'apprentissage et la 
politique «souris» qui, associees aux 
possibilites de memorisation des pages, 
permettent de diminuer les temps de 
transmission, done les couts et d'amor- 
tir ainsi le logiciel. 

En revanche, si votre seul but est de 
transformer votre Apple en Minitel 
pour acc^der aux services Teletel, con- 
tinuez a utiliser I'horrible joujou des 
PTT... ou pensez a la carte Appletell, 
solution de luxe peut-etre, mais pres- 
que parfaite. 

Guy-Michel Cogne 
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GUY-HACHETTE 



BASIC ET LANGAGE MACHINE 



DOS ProDOS 



NESTOR 



CORRECTION AVANCEE 



Inserer ou supprimer un caractere (et meme plusieurs) dans une variable n est pas d'une reelle simpli- 
cite... notamment en Basic, mais il est possible de trailer le probleme autrement. Voici une premiere 
approche. Gageons qu'elle nous vaudra des developpements interessants (c'est a dessein que je ne 
reprends pas, une a une, les explications du programme en L.M ... cherchez un peu !) 



II X$ doit etre la 
premiere variable du 
programme. 



30 Au depart, on 
initialise les poin- 
teurs 26 et 27 ($1A- 
ITB) 



CALL-998 
monte le curseur 
(SFC1A-VP) 



CALL-922 
envoie un saut de 
ligne ($FC66-LF) 



CALL-1036 
ovance le curseur 
($FBF4- AD VANCE) 



220 CALL-1GG8 le 
recule (SFC10-BS) 



250 CALL- 198, c'est 
BELL (SFF3A) 



Dans cette 
ligne, a I'affichoge, 
tous les caracteres 
inseres entre les 
symboles § et §§ 
apparaTtront en mo- 
de inverse (voir ligne 
330) 
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y$ - " " ; 

SUB 320 
29 N = 6: REM 



PRINT CHR* <21 > : TEXT 



HOME : NORMAL 



GO 



4 LI ONES DE TEXTE MAXIMUM ' '-.'TAB 3 A 61 



30 
40 
50 
49 
70 
80 
90 

100 

110 

120 
130 
140 

150 
160 
170 
180 
190 
200 
210 
220 
230 

240 
250 



260 
270 
280 
290 

300 



POKE 26,0: POKE 27,2 
GOSUB 360 :X* = Ft 
'•'TAB 3: HTAB 1 : CALL 768 
■JTAB PEEK (275 + 1 : HTAB 
GET R$:A = ASC CP$> :V = 
IF A = 
IF A - 
IF A ) 
IF A = 
IF V = 



PEEK <26> + 1 
PEEK (37) 
9 THEN CALL 815: GOTO 50 
127 THEN CALL 8-14 1 GOTO 50 
31 THEN CALL 872: GOTO 50 
11 AND > 2 THEN CALL - 998: GOTO 70 
2 AND PEEK (36) = AND A = 8 THEN 70 



IF V < N AND A = 10 THEN CALL - 922: GOTO 70 
IF U = N AND (A = 10 OR PEEK <36) = 39) AND A = 21 
THEN 70 

IF A = 21 THEN CALL - 1036: GOTO 70 
IF A > 8 THEN 79 

ON A GOTO 180,190,230,200.290,210,70,220 
HTAB 1 : GOTO 70 
HTAB 40 : GOTO 70 

HTAB 1 : GOTO 70 
HTAB PEEK <24) : GOTO 76 
1008: GOTO 70 

HTAB 6: PRINT " <§!§§> SUITE 
" : : GET R$: PRINT R$ 



UTAB 3: 

'-;TAB 3: 

CALL - 

CALL - 



PRINT "(§ES§)NC0RE (§ 
: GET R$! PRINT 



198: UTAB 22: 
CORRECTION <§2§§> FIN 
IF Rt = "1" THEN 50 
CALL - 198: YTAB 22: HTAB 1 
M§S)ENU DE DISQUETTE (STIS) ERMINE 
: IF Rf = "T" THEN HOME : END 

IF R» = "E" THEN UTAB 22: CALL - 868: GOTO 230 
IF Ri = "M u THEN PRINT CHR* <4)"RUN MENU" 
GOTO 258 
UTAB 14: PRINT 
T " " : : NEXT 



PRINT " INSERER 

CTRL-§A§§: Debut 
-§D§§: Debut texte 



CALL - 958: FOR I = 1 TO 10: PRIN 
PRINT 

CTRL-§I§§ SUPPRIMER 
gne CTRL-§B§§: Fin 
CTRL-§F§§: Fin texte 

CTRL-§C§§: Termini 



: §DEL§§ 
1 igne CTRL 



CTRL-§§E§§: D^pannage" 



TREMPLIN MI2R6 



310 CALL - 198: POKE - 16368,8: WAIT - 16384,128,127 
: POKE - 16368,8: VTAB 14: PRINT : CALL - 958: GOT 
60 

328 PRINT CHR$ (4VBL0AD COR.LM": CALL 936: REM ROUTIN 
E C0RRI6ER DE 768 A 835 ET ROUTINE INVERSE DE 936 A 

968 

338 VTA 8 13: PRINT " UTILISEZ LES §QUATRE§§ FLECHES DE 
L'APPLE MAIS NE DEPASSEZ PAS LE POINT... FINAL" 

348 VTAB 22: PRINT " §CTRL-E§§ = TABLEAU DES COMMAN 

DES" 

358 RETURN 

360 F$ = "CECI EST UN SIMPLE ESSAI , ET CETTE VARIABLE DE 
VRA, PAR LA SUITE, PROVENIR D'UN FICHIER DIRECT DONT 

LES ENREGI STREMENTS NE DEPASSERONT PAS 4 LI ONES DE 
TEXTE. ALLQNS-Y . " 

370 RETURN 



COR.LM (PREMIERE PARTIE) 



8 388- 


A5 


69 




LDA 


$69 


0342- 


C4 


1 9 




CPY 


$19 


8382- 


1 8 






r-- 1 r-~ 

CLC 




0344- 


D0 


F5 




BNE 


i fi OOD 

$033B 


8 iV 3- 


69 


82 




ADC 


fc$*J2 


n *"i a i 

8346- 


A9 


20 




i r\j\ 

LDA 


t $20 


38 Si- 


OR 

OJ 


06 




CTA 

b 1 A 


All/ 

*06 


0348- 


o o 

7 7 




Oft 


CTA 


*iD , T 


ft Oft *7 

J0 1 


AD 


L A 

6A 




i r»A 
LL'A 


■± ^A 

*6A 




,1 P 

4L 


/b 


ft o 
i 


Jnr 


* O D 


Q -if, Q__ 
(1.107" 


6V 


ft ft 




AL>L 


t * 


Ct O .1 c 


CO 


OP 

oL 


i 


TCD 

JbK 


»B JUL 


ft Oft D_ 

iV D- 


OR 


ft *? 
/ 




CTA 
b 1 H 


•± ft i 
»0 / 


030 1 - 


p L 

L6 


1 o 




L>tL 




V a V V 


Afl 
H« 


1 






t-xn 1 
t *V l 


a O c; o _ 


Ad 
Hi 


1 o 




i nv 

LU 1 


■* 1 o 


Ivr- 


D 1 


ft L 

6 




i r\A 


/♦(in v 

' * 6 .' ,Y 


y 3 o d — 


DO 

By 


a ! 


tVO 


i r\A 
LUh 


■± O ft ft 1 V 

*^00 1 , I 


0311- 


48 






PHA 




8358- 


99 


08 


20 


STA 


$2000 ,Y 


0312- 


C8 






I NY 




035B- 


C8 






I NY 




0313- 


Bl 


06 




LDA 


($06' ,Y 


035C- 


C4 


18 




CPY 


$18 


M315- 


A8 






TAY 




835E- 


D0 


F5 




BNE 


$0355 


0316- 


68 






PLA 




0360- 


A9 


20 




LbA 


£$20 


0317- 


85 


08 




STA 


$08 


9362- 


99 


00 


28 


STA 


$2086 ,Y 


0319- 


84 


09 




STY 


$09 


0365- 


4C 


7B 


03 


JMP 


$837B 


031 B- 


20 


3A 


DB 


JSR 


$DB3A 


0368- 


AD 


08 


02 


LDA 


$8288 


031 E- 


A0 


08 




LDY 


£$00 


036B- 


48 






PHA 




8328- 


Bl 


86 




LDA 


($06' ,Y 


036C- 


28 


8C 


03 


JSR 


$838C 


0322- 


85 


18 




STA 


$18 


036F- 


A4 


19 




LDY 


$19 


0324- 


A4 


18 




LDY 


$18 


6371- 


68 






PLA 




0326- 


88 






DEY 




0372- 


99 


88 


20 


STA 


$2000 ,Y 


0327- 


Bl 


08 




LDA 


''-$08 > ,Y 


0375- 


28 


F4 


FB 


JSR 


$FBF4 


0329- 


99 


88 


20 


STA 


$2000, Y 


0378- 


4C 


8C 


03 


JMP 


$038C 


032C- 


D0 


F8 




BNE 


$0326 


037B- 


A0 


00 




LDY 


£$00 


032E- 


60 






RTS 




037D- 


A5 


18 




LDA 


$18 


032F- 


20 


8C 


03 


JSR 


$038C 


037F- 


91 


06 




STA 


($06) ,Y 


0332- 


E6 


18 




INC 


$18 


0381- 


C8 






I NY 




0334- 


A4 


18 




LDY 


$18 


8382- 


A9 


00 




LDA 


£$60 


0336- 


A9 


88 




LDA 


£$80 


0384- 


91 


06 




STA 


($06) ,Y 


0338- 


99 


80 


28 


STA 


$2088, Y 


0386- 


CS 






I NY 




8 33B- 


88 






DEY 




0387- 


A9 


20 




LDA 


£$20 


833C- 


B9 


FF 


IF 


LDA 


$1FFF,Y 


0389- 


91 


06 




STA 


($06) ,Y 


033F- 


99 


00 


20 


STA 


$2008, Y 


038B- 


60 






RTS 





310 SEQUENCE 
D'ATTENTE BIEN 
CONNUE 



320 CALL 936 met 
en service la routine 
d'affichage en mode 
inverse (obtenue, 
dans le programme, 
par I'insertion d'un 
CTRL-I, symbolise, 
dans notre listage, 
par §, et stoppee par 
un CTRL-N, symbolise 
par deux §§). 
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GUY-HACHETTE 



838C- 


A5 


24 


LDA 


$24 


038E- 


85 


1A 


STA 


$1A 


8 ? Q 0- 


A5 


25 


LDA 


$•25 


8392- 


85 


IB 


STA 


$1B 


0394- 


38 




SEC 




0395- 


E9 


82 


SBC 


€ $82 


8397- 


F0 


89 


BEQ 


$83A2 


0399- 


AA 




TAX 




039A- 


A9 


88 


LDA 


€$88 


0396- 


18 




CLC 




839D- 


6^ 


28 


ADC 


€$28 


839F- 


CA 




DEX 




83A8- 


D8 


FA 


BNE 


$039C 


GJA2- 


18 




CLC 




83A3- 


55 


24 


ADC 


$24 


83A5- 


85 


19 


STA 


$19 


83A7- 


68 




PTS 





DEUXIEME PARTI E 

(AFFICHAGE MODE INVERSE) 



83A8- 


A9 


B3 


LDA 


€$B3 


83AA- 


85 


36 


STA 


$36 


83AC- 


A9 


83 


LDA 


€$.83 


83AE- 


85 


37 


STA 


*37 


83B8- 


4C 


EA 83 


JMP 


$83EA 


83B3- 


C9 


89 


CMP 


€$89 


83B5- 


D8 


85 


BNE 


$83BC 


83B7- 


A9 


3F 


LDA 


€$3F 


8369- 


85 


•32 


STA 


$32 


83BB- 


68 




RTS 




83BC- 


C9 


3E 


CMP 


€$8E 


83BE- 


D8 


85 


BNE 


$83C5 


83C8- 


A9 


FF 


LDA 


€$FF 


83C2- 


85 


32 


STA 


$32 


03C4- 


68 




RTS 




83C5- 


28 


F8 FD 


JSR 


■$FDF8 


83C8- 


68 




RTS 





$3O0-$32E : 

Cette routine lit I'adresse de la variable X$ (qui 
est la premiere du programme). El le affiche la 
chame pointee par Y et A (grace au sous- 
programme SDB3A-STROUT), puis elle la recopie 
a partir de I'adresse $2000. 

$32F S38B : 

Du basic, on y va par un CALL 815. C'est la routine 
d'insertion. Notez qu'elle utilise un sous- 
programme ($38C-$3A7) facile d comprendre 
quand on sait lire, en $24 la position horizontale 
du curseur et en $25 sa position verticale. Le JMP 
de la ligne $34B saute la routine de suppression 
de caracteres (CALL 846) qui commence a 
I'adresse $34E. 

En $368 (CALL 872) on lit le caractere qui est dans 
le buffer (mais seulement si celui-ci depasse la 
valeur decimale 31 , ce qui elimine les caracteres 
de controle), on le recopie a I'adresse 2000 + Y, 
puis on avance le curseur grace au sous- 
programme $FBF4. On notera tous les sauts a 
$38C oil, nous l avons deja vu, la position du cur- 
seur est dument sauvegardee en $1A et $1B 
(adresses lues d pactir du Basic, d la ligne 60). 

Deuxi ome partie : 

Elle concerne I'affichage en mode inverse, 
obtenu, dans la liste du programme, par un 
CTRL-I (symbolise par §) et interrompu par un 
CTRL-N (symbolise par §§). Pour sortir de ce mode 
d'affichage, faites un RESET. 

Avec ProDOS, remplacez $3EA (ligne 3B0) par 
$F26F (4CF26F). De plus, dans le programme en 
Basic, placez un CALL 936 au debut des lignes 
230, 250 et 300. 



COR.LM 



BSAVE 
COR.LM. 
AS300. 
L$C9 



8388- 
8388- 
0318- 
0318- 
0320- 
8328- 
0330- 
0338- 
0348- 
8348- 
8350- 
0358- 
0360- 



A5 69 
6A 69 
06 48 
88 84 
Bl 06 
08 99 
8C 03 
99 00 
00 28 
99 80 
03 C6 
99 00 
A9 20 



18 69 
08 85 
C8 Bl 
89 20 
85 18 
00 28 
E6 18 
20 88 
C4 19 
20 4C 
18 A4 
20 C8 
99 08 



82 85 
07 A0 
06 A8 
3A DB 
A4 18 
00 F8 
A4 18 
B9 FF 
D0 F5 
7B 03 

19 B9 
C4 18 

20 4C 



06 A5 
01 Bl 
68 85 
A0 00 
88 Bl 
60 20 
A9 00 
IF 99 
A9 20 
20 8C 
01 20 
D0 F5 
7B 03 



8368- 
0370- 
8378- 
8388- 
0388- 
0398- 
0398- 
03A0- 
03A8- 
83B8- 
83B8- 
03C0- 
83C8- 



AD 88 82 

19 68 99 
4C 8C 03 
06 C8 A9 

20 91 86 
A5 25 85 
09 AA A9 
D8 FA 18 
A9 B3 85 
4C EA 03 
3F 85 32 
A9 FF 85 
68 



48 28 8C 
88 28 20 
A8 88 A5 
00 91 06 
60 A5 24 
IB 38 E9 
80 18 69 
65 24 85 
36 A9 83 
C9 89 D0 
60 C9 8E 
32 60 20 



83 
F4 
18 
C8 
85 
82 
28 
19 
85 
85 
D8 
F8 



A4 
FB 
91 
A9 
1A 
F8 
CA 
68 
37 
A9 
05 
FD 



VERIFICATION 



T = : FOR I = 768 TO 968 : T = T + PEEK(I) : NEXT : PRINT T 
RSsultat exact: 28248 
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ASSEMBLEUR 



Assemblage avec ProCODE 




1 

2 
3 
4 

5 

"7 

8 
? 

10 

1 1 

12 

1 3 

14 

15 

16 

1 7 

18 

1? 

28 

21 

22 

23 

24 

25 

26 

2? 

28 

2? 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

4? 

56 

51 



***********************************#*#******* 

**** **** 

* * * 

* * 
**** * 

* * 

* * * 
**** **** 



X 
X 
X 
X 
X 
♦ 
♦ 

* 





* 


♦ 


♦ 






K 




• 




* * 


♦ 


♦ 


♦ 


♦ X 


♦ 


♦ 


** 




♦ 


» 



'v'o i c i 



tout u n e n semb 1 e de r ou tine s 
tres bruyan tes : de quoi mettre une 
certaine animation dans yds jeux 



x 
X 

x 

X 
♦ 
X 
♦ 

X 



********************************************* 
ORG *?00 



X 
X 
X 
X 
X 

** 



Ce programme s' assemble avec ProCODE, en une seule fois 
Uous pour re z inserer ces petites routines en assembl eur 
ou. bon uous semblera, ma is je uous recommande , pour une 
utilisation depuis un programme en Basic, de les placer 
au-dessus de HI MEM C*73, *74> , pu i s- de descendre H I MEM . 



MACRO SON 



** 



DO 
SON MAC 

LDA £ . 
LDX £ . 1 
LDY £ . 2 
..IMP SONO 
EOM 
FIN 

********************* 

* * 

* DES INDICATIFS * 

* * 
********************* 



* Woici quelques sons tres courts qui vont uous permettre 

* de bruiter vos jeux, ou de remplacer un bip aussi connu 

* que bre-f, 1e fameux CTRL-G (BELL). 




I ND I CAT IF SON *67,$32,*82 
MUSI QUE SON *10,*78,*01 
PROMPT SON *01,*FF,*23 
SIRENE SON *01,*FF,*FF 
TUUT SON *01,*FF,*01 

SLURP SON *80,*06,*FE 
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—■■■■■I 




*************************** 

* S N * 
*************************** 

* Ce sous-programme g£nere les sons. Pour y parvenir, il 

* lui -faut 3 parametres, contenus dans (a) <x) et <y): 

* (a) nombre de repetitions de la cellule de base 

* (x) -frequence de base 

* (y) increment pour modifier la -frequence de base 

* Done, si vous entrez par S0N01 , les parametres doivent 

* Stre places dans CONT INCR et FREQ. 











AA 


PONT 




1 












67 


TNPR 




1 












68 


FREQ 


DS 


1 












69 


P 


DS 


1 












70 


















71 


SPK 


— 


*C838 












72 










98 3A: 


3D 


36 


90 


73 


SONO 


STA 


CONT 


; sauve les parametres 


903D: 


8C 


37 


90 


74 




STY 


INCR 




9049 : 


BE 


38 


90 


75 
76 




STX 


FREQ 




9043: 


A9 


08 




77 
78 


S0N01 


LDA 


€0 


; init. pomteur d incrementation 


9045: 


8D 


39 


90 


79 




STA 


P 




9048: 


08 






80 




PHP 




; pas d' interrupt i on . . . 


9049 : 


78 






81 
82 




SEI 




; ...si on utilise la souris 


904A: 


AE 


38 


98 


83 


§1 


LDX 


FREQ 


; generation du son 


904D: 


AD 


39 


90 


84 


§2 


LDA 


P 




9050: 


6D 


37 


98 


85 




ADC 


INCR 




9053: 


8D 


39 


90 


86 




STA 


P 




9056: 


A8 






87 




TAY 






9057: 


88 






88 


§3 


DEY 




; boucle d'attente 


9058: 


D0 


FD 




89 




BNE 


§3 




90 5A: 


AD 


30 


C0 


90 




LDA 


SPK 


; un crack 


905D: 


3A 






91 




TXA 






905E: 


A8 






92 




TAY 






905F: 


88 






93 


§4 


DEY 




; boucle d'attente 


9060: 


D0 


FD 




94 




BNE 


§4 




9062: 


AD 


30 


C8 


95 




LDA 


SPK 




9065: 


CA 






96 




DEX 






9066: 


D0 


E5 




97 




BNE 


§2 




9068: 


CE 


36 


98 


98 




DEC 


con t 




906B: 


D0 


DD 




99 




BNE 


§1 




906D: 


28 






100 




PLP 




; retablit les interruptions 


906E: 


69 






101 
182 




RTS 
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SON avec Richard THIBERT 



(suite) 




986F: 


08 






9070: 


78 






9871 : 


AD 


10 


C0 


9074: 


A2 


A0 




9076: 


8A 






9077: 


CA 






9078: 


EA 






907?: 


D0 


FC 




907B: 


AA 






907C: 


AD 


30 


C0 


907F: 


AD 


00 


C0 


9082: 


30 


0E 




9884: 


98 


06 




9086: 


CA 






9087: 


E0 


58 




9089: 


4C 


76 


90 


998C: 


E8 






908D: 


E0 


A0 




908F: 


4C 


76 


90 


9092: 


28 






9093: 


60 







183 
184 
185 
186 
107 
188 
10? 
118 
111 
112 
113 
114 
115 
116 
117 
118 
11? 
120 
121 
122 
123 
124 
125 
126 
127 
128 
12? 
130 
131 
132 

133 
134 
135 
136 
137 
138 
13? 
140 
141 
142 
143 
144 
145 
146 
147 
148 
14? 
150 
151 



************************** 

* * 

* UNE VRAIE SI RENE * 

* * 
************************** 

* Cette routine imite une sirene classique avec une modu- 

* lation de la frequence qui monte, puis qui descend. Une 

* simple pression sur une touche i n terrompr a 1a sirene. 

* yous pouvez essayer ST-freq = $20 



Lfreq = $20 
Hfreq = $38 



STFREQ 

LFREO 

HFREQ 

KBD 
KBDST 

SIR 



§1 
§2 



§3 



§4 



est 


beaucoup 


plus 


desagr^able, par-fa i temen t 1 




$A8 








$50 
















$C888 








$cei0 






PHP 




t 


pas d'interruption 


1X1 

CO 








LDA 


KBDST 


• 


le clavier remis a ze>o 


LDX 


eSTFREQ 


j 


■frequence de depart 


TXA 




I 


<x) est sauve" dans (a) 


DEX 




! 


boucle d'attente 


NOP 








BNE 


§2 






TAX 




! 


restore tx) 


LDA 


SPK 


» 


un crack 


LDA 


KBD 


t 


une touche ? 


BM I 


§4 


i 


0U 1 


BCC 


§3 


5 


<c> dit si on monte ou pas 


DEX 




t 


on descend 


CPX 


£LFREQ 


i 


est-on trop bas ? 


JMP 


§1 


5 


( c ) est pos i t i onne 1 


I NX 




! 


de m"eme pour le haut 


CPX 


£HFRE0 






JMP 


§1 






PLP 








RTS 
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152 
153 
154 
155 
156 
157 

158 
15? 
168 
161 
162 
163 
164 
165 
166 
167 
168 
169 
176 
171 
172 
173 
174 
175 
176 
177 
178 
17? 
186 
181 



************************** 

* * 

* ETES-VOUS JEUNE ? * 

* * 
************************** 



* La faculty d' audit ion de hautes -frequences diminue avec 

* 1 "Sge . et d'une maniere tres sensible. Pour tester vos 

* propres -facultes d - ' audition, voici une routine qui uous 

* permettra de connaTtre la -frequence £mise par le haut- 

* parleur de >;otre Apple. 

* On imagine deja le programme Basic qui, par une suite 

* de tests, determinera vos limites et votre ige (tout a 

* -fait approx imat i -f , rassurez-vous , Madame'). 

* F est la -frequence. Nous auons la correspondance avec F 

* 511500/(20 + 5 * F) = F en Hz (F valeur de 1 'octet). Je 

* vous signale que je d^tecte un (-faible) si-f-flement pour 

* 14613 Hz, mais plus rien a 17080. Une mesure plus -fine 

* nv'a permis de conclure que j'entends jusqu'a 14900 Hz. 

* Bien sur, ce n'est qu'une indication, compte tenu de la 

* bande passante du haut-parleur de 1 'Apple. 

» D6-finissez les parametres et -faites un JMP test ou CALL 

* test (TEST #tant bien sur remplac£ par l'adresse de la 

* rou t i ne ) . 



T 
F 



DS 
DS 



determine la duree 
la -frequence 



9096: 


08 






182 


TEST 


PHP 






9097: 


78 






183 




SEI 














184 










9098: 


AD 


30 


C0 


185 


§1 


LDA 


SPK 


; 4 cycles 


909B: 


AC 


95 


9 


186 




LDY 


F 


; i 


989E: 


88 






187 


§2 


DEY 




; 2 


909F: 


D0 


FD 




188 




BNE 


§2 


i 2,3 










18? 










96A1 : 


CA 






198 




DEX 




J 2 


90A2: 


D0 


87 




191 




BNE 


§3 


; 2,3 










192 










90A4: 


CE 


94 


98 


193 




DEC 


T 


; 6 


90A7: 


D0 


EF 




194 




BNE 


§1 


i 3 










195 










90A9: 


28 






196 




PLP 






90AA: 


60 






197 




RTS 














198 










90AB: 


EA 






199 


§3 


NOP 




; 2 


90AC: 


24 


88 




288 




BIT 


$0 


; 3 pour 3 


99AE: 


4C 


98 


?0 


261 




JMP 


§1 


i 3 




eye 1 es 



SO 
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SON avec Richard THIBERT 



Table des symboles ordre alphabetique 



(suite) 



-C0N7 


. .$9036 




-INCR 


. .$9037 


? 


-LFREQ. . . 


. .$0856 


? 


-SIR 




? 


-SQN9..,, 


, ,t?B3A 


? 






9 



-F $9095 

-INDICATIF.*9888 
-MUSI QUE. . .4988? 

-SI RENE $901B 

-S0N01 uti .l?043 
? -TEST $9096 



-FREQ. . . 


. . .$9638 


-KBD 


. . ,$C008 


-P 


. . .$9639 


? -SLURP. . 


. . .$982D 


-§PK.tn 


. . .$C838 


? -TUUT . . . 





-HFREQ $88A6 

-KBDST $C818 

? -PROMPT $9812 

M-SON $1310 

=5TFREQ....f 



Si vous ne disposez pas d'un assembleur, voici les 177 octets generes par ProCODE : 



9000- 


A9 


67 


A2 


32 


A0 


82 


AC 


3A 


90 60- 


D0 


FD 


AD 


30 


C0 


CA 


D0 


E5 


9008- 


90 


A9 


10 


A2 


78 


A0 


01 


4C 


9068- 


CE 


36 


90 


D0 


DD 


28 


60 


08 


90 1 6 - 


3A 


90 


A9 


01 


A2 


FF 


A0 


23 


9070- 


78 


AD 


10 


C0 


A2 


A0 


8A 


CA 


9018- 


4C 


3A 


90 


A9 


01 


A2 


FF 


A0 


9078- 


EA 


D0 


FC 


AA 


AD 


30 


C0 


AD 


9020- 


FF 


AC 


3A 


90 


A9 


01 


A2 


FF 


90 80- 


00 


C0 


30 


0E 


90 


06 


CA 


E0 


90 28- 


«0 


01 


4C 


3A 


90 


A9 


30 


A2 


9088- 


50 


AC 


76 


90 


E8 


E0 


A0 


4C 


9030- 


06 


A© 


FE 


AC 


3A 


90 


00 


00 


90 90- 


76 


90 


28 


60 


00 


00 


08 


78 


90 38- 





00 


3D 


36 


90 


8C 


37 


98 


9098- 


AD 


30 


C0 


AC 


95 


90 


88 


D0 


90 40- 


3E 


38 


90 


A 9 


00 


8D 


39 


90 


90A0- 


FD 


CA 


D0 


07 


CE 


94 


90 


D0 


9048- 


8 


78 


AE 


38 


90 


AD 


39 


98 


90A8- 


EF 


28 


60 


EA 


24 


00 


4C 


98 


9050- 


6D 


37 


90 


8D 


39 


90 


AS 


88 


90B0- 


90 
















9058- 


D0 


FD 


AD 


30 


C0 


8A 


A3 


88 


BSAVE SON.C, A36864, LI 77 









VERIFICATION 



Taper, en mode direct : 
T = : FOR I = 36864 TO 36863 + 177 ■ T = T + PEEK(I) : NEXT : PRINT : PRINT T Le resultat devra etre 22342 



SON. DEMO (pour essayer les routines !) 



18 HI MEM : 36843: TEXT : HOME : PRINT CHR$ (4)"BL0AD SON.C" 
20 INVERSE : PRINT "SONO": NORMAL : RESTORE 

38 vTAB 22: PRINT "APPUYEZ SUR UNE TOUCHE APRES CHAQUE SON" : VTAB 3 
48 READ A$: PRINT A$ : READ CA: CALL CA 

50 POKE - 16368,0: WAIT - 16384,128: POKE - 16368,0: PRINT 
60 X = X + 1 : I F X < 6 THEN 40 

70 HOME : INVERSE : PRINT "SI RENE" : NORMAL : VTAB 22: PRINT "APPUYEZ SUR U 

NE TOUCHE POUR FAIRE CESSER" 
80 CALL 36975: HOME : INVERSE : PRINT "ETES-VOUS JEUNE ?" : NORMAL :F = 8 
90 VTAB 3:F = F - 1: POKE 37013, F: VTAB 7: CALL - 958: PRINT "FREQUENCE = 

Hz" : CALL 37014 



168 
288 
218 
228 
238 
248 
258 



IF F 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



INT (511588 / <28 + 5 * F)>' 
> 2 THEN 98 

"INDICATIF SON $67, $32, $82 (183 56 138) 

"MUSI QUE SON $10, $78, $01 ( 16 128 I) 1 

SON $61 ,$FF,$23 < 1 255 35)' 

SON $01,$FF,$FF < 1 255 255)' 

SON $01 ,$FF,$01 < 1 255 i> 



' PROMPT 
'SI RENE 
'TUUT 
'SLURP 



SON $80,$06,$FE <128 06 254) 



,36864 
,36873 
,36882 
,36891 
,36900 
,36909 
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Complement au programme SON 

Trois mysterieuses instructions de ProCODE 



En complement au programme son, je propose ici 
quelques informations tres utiles au musicien pro- 
grammeur. Vous savez tous que chaque note de la 
gamme correspond a une frequence definie. 
II existe des tableaux de conversion, mais ils sont 
toujours difficiles d'emploi, car non compris dans 
le principe de calcul. Voici la methode pour calcu- 
ler les relations notes et frequences. Sachez 
d'abord que la plus petite division du ton est le 
COMA : dans un ton il y a 9 comas et, bien sur, 
comme les nombres decimaux ne sont pas utilises, 
on divise ce ton en deux types de demi-tons : le 
demi-ton diatonique 4 comas et le chromatique 5 
comas. 

Nous allons chercher la valeur absolue du coma. 
Vous savez que l oreille percoit une variation de 
frequence logarithmiquement. Done une variation 
d un coma se traduit par un coefficient pour multi- 
plier la freauence de la note orecedente. Tout ceci 
a I'air complique, mais la realite est fort simple. 

Une variation d'une octave correspond a une mul- 
tiplication par 2 de la frequence. Or une octave 
comprend 5 tons et 2 demi-tons diatoniques done 
53 comas. 

On a, si X est la valeur absolue du coma 

X * 53 = 2 d'ou on tire X = 10 a (LOG2/53) 

Finalement on a F * 1 .013164 ^ N = F ou N est la 
distance en comas des deux notes. 

On peut alors calculer le tableau suivant : 






la 


444 Hz 


66 


do 


1053 Hz 


9 


si 


499 Hz 


75 


re 


1184 Hz 


13 


do 


526 Hz 


84 


mi 


1332 Hz 


22 


re 


592 Hz 


88 


fa 


1403 Hz 


31 


mi 


666 Hz 


97 


sol 


1579 Hz 


35 


fa 


702 Hz 


106 


la 


1776 Hz 


44 


sol 


789 Hz 


115 


si 


1998 Hz 


53 


la 


888 Hz 


119 


do 


2105 Hz 


62 


si 


999 Hz 





Voici pour finir quelques indications tres confiden- 
tielles sur ProCODE. En effet, le programme, dans 
sa version 1 .23, comprend 3 instructions non expli- 
citees dans le manuel, et ceci pour des raisons 



de delai, la documentation etant terminee bien 
avant la mise en vente, et pour des raisons de fia- 
bilite, une longue periode de test etant de rigueur. 

Passons aux choses serieuses... voila les 3 instruc- 
tions meconnues : SHK ON, SHK OFF, NODSK. 

Pour les utilisateurs de ProCODE voici, sous la 
meme forme que dans le manuel, la description de 
ces instructions. 

SHK ON 

— SHK ON — ProCODE permet de gerer un dou- 
ble octet de controle, appele SHECK SUM en 
anglais ; I'instruction SHK ON indique a ProCODE 
que chaque octet de code genere va etre addi- 
tionne a une variable predefinie sur 16 bits : b, 
dans cette variable, la valeur actuelle de la som- 
mation est toujours accessible. 

SHK OFF 

— SHK OFF — Cette instruction demande l arret 
de mise a jour de la variable a qui contient le 
SHECK SUM. 

Exemple d'utilisation de ces instructions ; le pro- 
gramme est entre test et fin s'il y a un octet diffe- 
rent lors de I'appel de verif il n'y aura pas de 
retour. 



SHK 


ON 


§0 LDA TEST.X 


CMP£<a 


TEST LDA 


£$10 


ADC P 


BNE ERR 


LDA 


£$24 


STA P 


LDA P + l 


FIN = 


* 


BCC §1 


CMP £ > a 






INC P+l 


BNE ERR 


SHK 


OFF 


§1 INX 


RTS 


VERIF LDX 


£0 


CPX £FIN-TEST 




STX 


P 


BCC §0 


ERRJMP ERR 


STX 


P + l 


LDA P 




NODSK 









— NODSK — Cette instruction s'utilise avec DSK, 
elle permet d'arreter la generation du code sur 
disque, ou par exemple de creer plusieurs fichiers 
code avec la meme source. 

Exemple : ce petit programme : creer a l assem- 
blage 2 fichiers objetl et objet2. 



DSK 

ASC 

NODSK 

DSK 

ASC 

NODSK 



OBJET1 

"FICHIER OBJET NUMERO 1 " 
OBJET2 

"FICHIER OBJET NUMERO 2" 



TREMPLIN MICRO 



19 



Votre bibliotheque 
INFORMATIQUE 

• Apprivoiser I'ordinateur : pourquoi pas ? 

Dans Vous et I'ordinafeur Apple, Edward H. Carlson se pro- 
pose d'aider les debutants a apprivoiser leur machine 
(Cedic/Nathan). 

L'auteur n'est probablement pas medecin. mais il a choisi 
de repartir cette initiation sur 33 lecons tres pedagogiques 

et reellement a la portee de toutes et de tous. 

Naturellement, le langage utilise est le Basic. Chaque lecon 
comprend, outre des notes destinees au professeur (ou aux 
parents de I'enfant) de nombreuses questions, explications 
et embryons de programmes. 

Est-il possible d'apprendre a programmer a partir des 
exemples fournis dans cet ouvrage ? La reponse est oui. 
Personnellement, j'ai aime le style alerte de l'auteur et sa 
maniere d'aborder chaque instruction du Basic. Je pense 
que Vous et I'ordinateur Apple merite de figurer, en bonne 
place, dans la bibliotheque des classes de micro- 
informatique. 

C'est un abc qui s'adresse surtout aux jeunes (il est illustre 
de nombreux dessins amusants), mais qui se revelera capa- 
ble d'interesser les adultes. 



par Clement RENARD 




phil RttMn 




a a 

APPLE He 



y 



POUR EN SAVDIR PLUS EN PROGRAMMATiON 



[ HACHETTE 



I Une auto-formation bien comprise 

Avez-vous eu la curiosite de feuilleter, dans la collection 
Micropratiques (Hachette Informatique), Les Ecrans de 
lApple He ? L'editeur annonce "un langage simple, acces- 
sible a tous. Une presentation claire et utilisant largement 
la couleur pour une initiation progressive au Basic". 

Je m'attendais a retrouver, sous une presentation 
luxueuse, une nouvelle compilation des manuels diffuses 
par Apple. Nous en avons I'habitude, pas vrai ? 
Surprise, et de taille : si le luxe est bien present dans les 
deux livrets de cet ouvrage d'auto-formation (mais qui sen 
plaindrait ? ), on a le plaisir — meme quand on connait dejd 
son Apple He — d'y trouver de tres bons exemples de 
program-mation. On se prend a regretter que tout cela soit 
Iceuvre d'un sujet de Sa Gracieuse Majeste : Phil Robinson 
(traduction signee par Denis Pellerin). Bravo ! Phil ! c'est 
de la belle besogne, et j'espere que les nouveaux posses- 
seurs d'Apple (ainsi que ceux pour lesquels I'Applesoft res- 
semble encore aux caracteres etrusques) s'offriront ce dou- 
ble guide de la programmation sur Apple lie. 

Un regret : j'aurais souhaite la meme chose, mais sous 
forme de fiches... c R 
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SIMPLIFICATION DE LA GESTION DU BUDGET PERSONNALISE AVEC 



■ GESTION II de Version Soft 



G ESTION II interessera bon 
nombre de Lectrices et 
Lecteurs de Tremplin Micro, 
mais seulement s'ils sont les 
heureux possesseurs d'un 
Apple He ou He... equipe du 
65C02 (n'oublions pas qu'il 
existe un kit de mise a niveau 
tres bon marche). 

Cestion II s'adresse, en prio- 
rity, aux membres des profes- 
sions liberales places sous le 
regime des Benefices Non 
Commerciaux (medecins, avo- 
cats, etc.). mais aussi aux res- 
ponsables de multiples clubs, 
associations et syndicats (type 
loi de 1901). 

Ce logiciel, facile d maTtriser, 
est d'ailleurs capable de 
s'adapter, apres quelques 
heures d'apprentissage, aux 
besoins de quiconque desire 
realiser une gestioh logique, 
sure et approfondie de ses 
divers revenus. 



Un large eventail 
de comptes 

L'utilisateur dispose de 60 
comptes (dont plusieurs comp- 
tes bancaires), de 100 ecritu- 
res mensuelles et de 10 mou- 
vements automatiques (tres 
pratique pour prevoir le rem- 
boursement d'un emprunt !). 

La souris commande tous les 
menus deroulants et la ges- 
tion des fenetres. 

Avec Cestion II. on retrouve 
les facilites deja offertes par 
Version Graph et les autres 
produits de Version Soft. 



Toutes les saisies peuvent 
etre modifiees ou supprimees 
par des commandes aussi sim- 
ples que... Modifier... et 
Supprimer. 

Avec Gestion II, il est com- 
mode de prevoir son budget 
pour I'annee a venir, puis de 
comparer les previsions aux 
depenses reelles. 

Des etats... a imprimer 

Tous les rapports peuvent etre 
imprimes tels qu'ils apparais- 
sent sur I'ecran. On pourra 
ainsi editer, suivant les 
besoins : 

• Une iiste mensueiie des 
ecritures (en total ite ou 
par categorie) ; 

• La Iiste mensueiie des ecri- 
tures retenues pour une 
future declaration de reve- 
nus ; 



• La Iiste des soldes de tou- 
tes les categories ; 

• Une analyse detaillee de 
revenus, avec calcul du 
revenu net ; 

• Un bilan complet avec le 
resultat. 

A noter que Gestion II per- 
met I'etablissement d'un bud- 
get previsionnel detaille, pour 
une annee complete, puis la 
comparaison des previsions 
avec les depenses reelles. 
Le controle des releves ban- 
caires n'a pas ete oublie ; 
quant a la documentation, elle 
est fidele d la philosophie de 
Version Soft : claire, concise, 
mais capable d'etre comprise 
sans effort, grace a des exem- 
ples judicieusement choisis. 
Demandez une demonstration 
a votre revendeur ! 

Clement RENARD. 



Considerations generales 

• Comment peut-on encore vendre — en 1985 — un Apple He sans 
carte 80 colonnes, alors que celle-ci est incorporee dans I'Apple 
He? Certes, la plupart des revendeurs la proposent a leurs 
clients, mais elle reste — helas ! — une option (a noter que la 
carte texte Apple a recemment subi une baisse de plus de 200 F). 

• On constate que la plupart des nouveaux logiciels travaillent non 
seulement en 80 colonnes, mais utilisent la totalite des ressour- 
ces du 65C02, et exigent 128 K. 

• Indeniablement, le concept graphique souris fait recette et 
devient meme le standard Apple. Les menus deroulants rempla- 
cent les classiques presentations d'hier. C'est beau. C'est prati- 
que, mais gourmand en memoire ! 

• La double haute resolution devient une regie dans les logiciels 
tres elabores. C'est notamment vrai chez Version. Soft, I'un des 
meilleurs compagnons de route de I'Apple //. 

• L'ordinateur personnel de papy a vecu, mais il existe encore et se 
revele parfois capable, avec ses slots bien garnis, et grace a de 
multiples bidouillages, de rivaliser avec I'Apple He. NESTOR. 
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INITIATION 



I USR (?) 



En recopiant attentivement ce pro- 
gramme de demonstration, le neophyte 
comprendra certainement a quoi sert 
I'instruction USR(X) de son Apple, mais il sera bien inspire en realisant lui- 
meme plusieurs routines d'application. 



10 

15 

29 



36 



35 



40 
45 



50 



55 



6& 



65 



TEXT 
CHR* 
P = 1 : 
INVERSE :T4 
GE ZERO) " : 
PRINT " POKE 



CHR$ (12) 



( Pa 



NORMAL : PRINT 
(21): HOME 
= P 

= " PONCTION USR 
GOSUB 280 
19 ,76 

'•*0A>POKE I 2, ADR/256 

($8C) POKE 1 1 .ADR-PE 
EK<12)*256 <*8B)" 
PRINT : PRINT "Ces 3 POKES 
1 i sent 1 a -fonct i on USR 



i n i t i a 



te man i ere , un appe 1 



De cet 
3 USR renuer- 
un sous-progr 



debutant 



ra automat i quemen t a 
amme en langage machine 
a 1 'adresse ADR. " 
PRINT : PRINT "On salt que cette 
■fonct ion permet d'eta-blir un lien 

entre un programme en Basicet un 
autre en assembleur, auquel elle 
transmet des parametres avant de r 
etour-ner au proqramme principal." 
GOTO 285 

INVERSE : PRINT " EXEMPLES : " : NORM 
AL : PRINT : PRINT : PPINT "100 PR 
INT USR(8) ':ARGUMENT=8> 
500 X=2*USR< Y + l>" 
PRINT : PRINT "Exemple absurde, s 
upposons qu'une pet i terout i ne en 1 
angage machine soit charg^e d'a-f-fi 
cher 1 -'argument multiplie par 10, 
comme cec i : " 

PRINT- : PPINT "380 28 3? EA JSR 
$EA3? <FAC * 18) 383 68 



RTO 



PRINT : PPINT " P0KE1 8 , 76 : P0KE1 2 . 7 
68/256:P0KEl 1 . 768-PEEK'! 1 2 ) *256 ua 
initialiser la -fonct ion USR" 
PRINT : PRINT "Ensuite, si I "on t 
ape un RUN 100, c'est le nombre "; 
: INVERSE : PRINT 88;: NORMAL : PR 
INT " qui s'a-f-f ichera." : GOTO 285 



Lorsque vous lancerez votre program- 
me, vous obtiendrez successivement 
ces ecrans : 



FUNCTION USR (PAGE ZERO) 




POKE 19,76 

POKE 12, ADR/256 

POKE 1 1 ,ADR-PEEK< 125*256 



Ces 3 POKES initialisent la fonct ion USR 

De cette maniere, un appel a USR renuer- 
ra automat i quemen t a un sous-programme 
en langage machine debutant a I adr esse 
ADR. 

On sait que cette fonction permet d'*ta- 
blir un lien entre un programme en Basic 
et un autre en assembleur, auquel elle 
transmet des parametres avant de retour- 
ner au programme principal. 

PRESSEZ UNE FLECHE <- OU -> POUR 




EXEMPLES: 

189 PRINT USR<8> 
598 X=2»USR(Y+1> 



<AR6UMENT=8> 



Exemple absurde, supposons qu'une petite 
routine en langage machine soit chargee 
d'afflcher I argument multiplie par 19, 
comme cec i : 

389 28 39 EA JSR *EA39 < FAC » 18> 
383 69 RTS (Basi c> 

P0KE18 ,76:P0KE12.768/256:P0KE1 1 .768-PEEK 
<12)*256 ua initialiser la fonction USR 

Ensuite, si 1'on tape un RUN 188, c'est 
le nombre 88 qui s'aff ichera. 



PRESSEZ UNE FLECHE <- OU -> POUR SUITE 
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78 



75 



80 
35 



99 
100 

lie 

120 

130 
140 
200 



205 
210 



PRINT "La valeur de 1 'argument se 

trouve dans le registre accumula 
teur <*9D a $A2) , otila routine en 
langage machine devra doncla r£cup 
erer . " 

PRINT : PRINT : PRINT "La NOIWELL 
E VALEUR de la fonction USR sera 
celle -figurant dans 1 ' accumu 1 ateu 
r,au moment du RTS renvoyant au Ba 
sic." 
GOTO 285 

PRINT " FAITES UN ESSAI AVEC CE PR 
GRAMME , EN DONNANT DES VALEURS 
DIFFERENTES A B : " : LIST 100,140: G 
0T0 285 
LIST 100,148 

POKE 16,76: POKE 12,768 / 256: PO 
KE 11 ,768 - PEEK (12) * 256 
POKE 768,32: POKE 769,57: POKE 77 

6,234: POKE 771,96: REM ROUTINE L 
M 

VTAB 22: HTAB 2: CALL - 198: PRI 
NT "B = ";: GET Rf:S = 1:R = ASC 
<R*"> : GOSUB 290 

PRINT R$;: INPUT "";B*:B = UAL < 
R* + B*>: IF NOT B THEN 340 
VTAB 22: HTAB 20: CALL - 868: PR 

INT USR (B) : GOTO 128 

MTAB 3: PRINT "Dans notre exemple 

, on pouvait acceder ala routine % 
EA39 <MUL10.) sans passer parle pro 
gramme de l'adresse $308, de cette 
man i ere : " 

PRINT : PRINT "POKE 18,76: POKE 1 
1,57: POKE 12,234: REM *4C 39 EA" 
PRINT : PRINT "Temps a>;ec : 



= 1 TO 5800:A=1I 



FOR I 

A = A * 18:NEXT 



38 SECONDES" 
215 PPINT : PRINT "Temps auec: 



FOR I 

= 1 TO 58ii0:A=18: A = USR<A> :NEXT 

27 SECONDES" 
228 GOTO 285 

225 VTAB 3: HTAB 28: INVERSE : PRINT" 
"AUTRE EXEMPLE" : NORMAL : UTAB 3 

238 T* = "388 28 63 EB JSR $EB63303 2 
8 88 EB JSR $EB88386 28 82 E9 JS 
R *E982389 68 RTS " : F 



La valeur de 1 'argument se trouve dans 
le registre accumulateur <*9D a *A2) , ou 
la routine en langage machine devra done 
la recuperer. 



La NOUVELLE UALEUR de la fonction USR 
sera celle figurant dans 1 ' acc umu 1 a t eur , 
au moment du RTS renvoyant au Basic. 



PRESSEZ UNE FLECHE <- OU -> POUR SUITE 



FAITES UN ESSAI AYEC CE PROGRAMME, EN 
DONNANT DES VALEURS DIFFERENTES A B: 

lee POKE 19,76: POKE 12,768 / 25 
6: POKE 11,768 - PEEK <12> « 
256 

118 POKE 768,32: POKE 769,57: POKE 
779,234: POKE 771,96: REM R 
OUT1NE LM 

128 VTAB 22: HTAB 2: CALL - 198 
: PRINT "B = " i : GET R*:S = 
I |R ■ ASC CR*): GOSUB 298 

139 PRINT R*j: INPUT ■*;B*:B= UAL 
(R» ♦ B»>: IF NOT B THEN 34 
8 

UTAB 22: HTAB 29: CALL - 86 
8: PRINT USR <B>: GOTO 129 
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OR I = 1 TO LEN (T*) STEP LEN CT 
*■) / 4: PRINT MID* <T* , I , LEN CT* 
) / 4): NEXT 
235 PRINT : PRINT "*EB63 recopie l'ac 

cumulateur en $A5-$AA" : PRINT 
248 PRINT "$EB88 determine les signes 
des nombres (de $9D a $A2 

et de *A5 a $AA ) " : PRINT 
245 PRINT "$E982 mu 1 1 i p 1 i e le content! 
de 1 'accumu- lateur par eel 

u i de 1 a zone al 1 an t de JA5 a 

$AA , puis place le res u 1 - ta 
t dans 1 ' accumu 1 ateur" 
258 PRINT : PRINT "Comme on le voit, 

la routine £leve l'ar-gument au ca 
rre. . ." 

255 POKE 768,32: POKE 749,99: POKE 77 
8,235: POKE 771,32: POKE 772,128: 
POKE 773,235: POKE 774,32: POKE 77 
5,138: POKE 776,233: POKE 777,96 

248 MTAB 22: HTAB 2: CALL - 198: PRI 
NT " B = " ; : GET R* sS = 1 : R = ASC 
<Ri) : 60SUB 298 

265 PRINT R$;: INPUT " " :B$:B ■ UAL ( 
R* + B$> : IF NOT B THEN 348 

278 VTAB 22: HTAB 28: CALL - 868: PR 
INT USR (B>! GOTO 268 

275 GOTO 285 

288 PRINT : '-/TAB 1: HTAB (41 - LEN < 
T$» / 2: INVERSE : PRINT It: NORM 
AL : POKE 34,2: UTAB 3: RETURN 

285 VTAB 24: HTAB is PRINT " PPESSE2 U 
NE FLECHE <- OU -> POUR SUITE " ; : 

GET R*:R = ASC ( R$ > : POKE - 163 
68,8 

298 IF R = 3 THEN P = P - 1 : GOTO 385 

295 IF R = 21 THEN P = P + 1 ■ GOTO 30 
5 

388 IF S = 1 THEN S = 8: RETURN 

385 IF NOT P THEN P = 1 

318 IF S = 1 THEN S = 8: POP 

315 IF R = 6 THEN TEXT : HOME : END 

328 IF R = 3 THEN VTAB 22: PRINT : 

PRINT CHR* (4>"RIN MENU" 
325 IF P = 9 THEN P = 3 
338 IF P = Q THEN 285 

335 PRINT :Q = P: VTAB 3: CALL - 958 
: ON P GOTO 25,45,78,85,98,288,225 
,345 

348 P = P + 1 : GOTO 338 
345 'vTAE 12: HTAB 6: PRINT "CTRL-C PO 
UR MENU DE DISQUETTE 

CTRL-F POUR TERMINER" : GOTO 285 




*EB63 recopie I ' accumu 1 a teur en *A5-*AA 



*EB89 determine les signes des nombres 
(de *9D a *A2 et de *A5 a *AA> 

SE982 multiplie le contenu de I'accumu- 
I ateur par celui de la zone allant 
de *A5 a SAA, puis place le resul- 
tat dans I ' accumu I ateur 




• La ligne 255 poque les 10 octets de 
la routine en langage machine que 
vous montre I'ecran ci-dessus. 

• A la ligne 265, si R est egal a G, on 
passe a la page suivante. 

• Les fleches de I'Apple permettent 
d aller de l avant... ou de revoir les 
pages precedentes. 
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GRAPHISME 



INITIATION 



I LA PSEUDO PAGE 3 GRAPHIQUE 

fl L existe une pseudo PAGE 3 (que vous pouvez proteger par un LOMEM : 32768) et vous allez la rencontrer... 



En effet, alors que POKE 230,32 et 230,64 permettent respectivement d'ecrire dans 
les pages 1 et 2, un POKE 230,96 vous ouvre des horizons nouveaux... puisqu'il vous 
autorise d ecrire dans une pseudo PAGE 3. 

Ne jubilez pas trop vite : pas question d'afficher instantanement cette fameuse 
PAGE 3. II est indispensable de la recopier dans I'une des deux pages graphiques 
autorisees par votre Apple. 

Mais cela est simple, grace a la routine aA6ve(§FE2C)... poquee par les lignes 310 ef 
320 de notre programme (mais on prend la peine de vous les expliquer ! ). 
Pour le reste, tapez ce petit programme de demonstration (vous pouvez vous faire 
aider si vous avez un poil dans la main). Vous comprendrez tout, je vous le promets ! 

Nestor. 



16 TEXT : NORMAL : PRINT CHRt (12)5 CHR* C21 > : HOME 

29 GOSUB 318: REM ROUTINE TRANSFERT PAGE3 VERS PAGE 2 
38 POKE 49234,0: REM MODE GRAPHI13UE PLEINE PAGE 

48 GOSUB 248 : HGR : HGR2 :X = 8 

58 POKE 230,96: REM PERMET DE TRACER DANS UNE PSEUDO PAGES 

60 POKE 49236,8: POKE 49233,8: REM PASSAGE EN MODE TEXT PAGE1 

78 HC0L0R= 0: HPLOT 0,9: CALL - 3082: REM EFFACE LA PAGES 

30 HC0L0R= 3: HPLOT 1.1 TO 279,189: HPLOT 279,1 TO 1,189: REM TRACE PAGES 
98 LIST 38,60: LIST 78,88: LIST 188,118: VTAB 23: INVERSE : HTAB 6: PRINT 

. "pInsH a tan m fiP«! H i mm in 

100 POKE 49237,8: POKE 49232,0: REM PASSAGE EN MODE GRAPHIQUE PAGE2 

110 CALL 763: REM TRANSFERT PAGE2 

120 PRINT : PRINT CHR* <4>"BLQAD ET0,A$2868" 

130 FOR I = 1 TO 18: POKE 49237,8: GOSUB 238: POKE 49236,8: GOSUB 238: NEXT 
I 

148 HOME : POKE 49235,8: VTAB 22: PRINT " HGR2 VA EFFACER LA PAGE2" : GOSUB 2 
08: HGR2 

150 POKE 49236.0: HOME : POKE 49235,0: VTAB 22: PRINT "CALL 768 VA RECUPERE 

R LA PAGES" : GOSUB 200: POKE 49234,8: POKE 49237,0: CALL 768 
160 GOSUB 280: POKE 49236,0: REM PAGE1 
178 GOSUB 208: POKE 49237,8: REM PAGE2 
188 X = X + 1 : IF X < 8 THEN 168 
198 GOSUB 200: GOTO 190 

200 CALL - 198: POKE - 16368.8: WAIT - 16384,128,127: POKE - 16368, 0:R 

= PEEK - 16384' 
210 IF R = 27 THEN 258 
228 RETURN 
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238 
248 

258 
268 

278 
288 
298 
388 
318 



328 



FOR J = 1 TO 488: NEXT : RETURN 

HC0L0P= 0: FOR I = 1 TO 3:X = 32 * I : POKE 230. X: HPLOT 0,8: CALL 
82: NEXT : RETURN : REM EF FA CEMENT DES PAGES1.2.3 
POKE 49236,0: POKE 49235,0: HOME : 

VTAB 22: PRINT "(fDENU DE DISQUETTE <E>NCORE (T) ERMINE ";: GET R* 
NT 

IF R-$ 
IF R* 
IF R* 

TEXT 



- 38 



PRI 



HOME 



PRINT CHR* (4) "RUN MENU" 
: POKE 49234,0: RETURN 



"M" THEN PRINT : 
" E" THEN RUN 
> "T" THEN HOME 
END 

POKE 768,160: POKE 769,8: POKE 770,132: POKE 771,60: POKE 772,169: POKE 
773,96: POKE 774,133: POKE 775,61: POKE 776,169: POKE 777,255: POKE 778 
,133: POKE 779,62: POKE 780,169 

POKE 781,127: POKE 782,133: POKE 783,63: POKE 784,169: POKE 785,64: POK 
E 786,133: POKE 787,67: POKE 788,132: POKE 789,66: POKE 798,32: POKE 791 
,44: POKE 792,254: POKE 793,96: RETURN 



TRANSFERT PAGE 3 DAMS PAGE 2 (LEG POKES) 



8 3 9 - 


A0 


00 


LDY 


£*00 


30 2- 


84 


3C 


STY 


*3C 






f ft 






0384- 


A? 


60 


LDA 


£•§•60 


306- 


85 


3D 


STA 


*3D 


308- 


A9 


FF 


LDA 


tf-FF 


038A- 


85 


3E 


STA 


S3E 


030C- 


A* 


7F 


I DA 


<•" * 7 P 


030E- 


85 


3F 


STA 


*3F 


0310" 


A? 


40 


LDA 


£*40 


0312- 


85 


43 


STA 


*43 


0314- 


34 


42 


STY 


*42 


0316- 


20 


2C FE 


■JSR 


*FE2C 


0319- 


66 




RTS 





Pa§i 3 (difeul la ?Sne s cSpiSF) $^888 (24§^j 



Page 3 (fin de la zone a copier) $7FFF (32767) 



Destination Page 2 $4000 (16384) 



MOVE deplace la zone $3C-3D ($6000), finissant en $3E-3F ($7FFF) vers la zone commencant en $42-43 ($4000). 

Des adresses nullement mysterieuses, et fort utiles ! 

$E4 (228) Contient le code de la couleur en HGR 

$E6 (230) On y trouve $20 pour HGR, $40 pour HGR2... et $60 pour la pseudo 

PAGE 3 

En Basic, cela se traduit par Poke 230,32 — Poke 230,64 — Poke 
230,96 

$E7 (231 ) Valeur de SCALE 

$E8-$E9 (232-233) Adresse de la table de formes 



• Pour effacer la page courante, en haute resolution, vous aurez une alliee puissante 
dans la routine BKGND ($F3F4). Par exemple : 



300 
302 
305 



A9 55 
20 F4 
60 



F3 



LDA £$AA 
JSR $F3F4 



-» $55 = Bleu 

» Routine BKGND 
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ProDOS 1.1.1 1 



I DES POKES UTILES 

I pour modifier le catalog ProDOS 

Ouvrez des maintenant un repertoire des POKES-ProDOS et si vous disposez de 
la version 1.1.1 (Septembre 1 984) de ce systeme d'exploitation , essayez le petit 
programme DEMO : 



18 TEXT : HOME : PRINT CHR* < 4) " PRC 3" 

12 PRINT " CES POKES NE SONT UTI LI SABLES QU'AVEC LA VERSION 1.1.1 DU SYSTEM 
E PRODOS APPLE " 

14 vTAB 2: FOR I = 1 TO 28: PRINT " ";: NEXT : PRINT : POKE 34,3 

16 PRINT "POKE 42198.8 (128) = TITRES DES FI CHI EPS EN MODE INVERSE" 

13 POKE 42198,8: GOSUB 54: POKE 42198,123 

28 PRINT " POKE 42316,96 (162) = ELIMINE LES DATES DU CATALOG <N0N DU CAT > 

22 POKE 42314.96: GOSUB 56: POKE 42316.142 

24 PRINT "POKE 42344,173 (178) = LOCK (*) DEVI ENT (-)" 

26 POKE 42344,173: GOSUB 56: POKE 42344.178 

28 PRINT "POKE 42482,8 (18) = REMPLACE LES DATES PAP (NO DATE) " 

38 POKE 42482,8: GOSUB 56: POKE 42482,18 

32 PRINT "POKE 42483.96 (152> = ELIMINE LA MENTION <N0 DATE)" 

34 POKE 42483,96: GOSUB 56: POKE 42483,152 

36 PRINT "POKE 42498,175 (173) = CHANGE LE / DES DATES POUR UN TIRET (-)" 

38 POKE 42498,175: GOSUB 56: POKE 42498,173 

40 PRINT "POKE 45201.155 (131) = ESCAPE STOPPE LE CATALOGUE 11 

42 POKE 45281,155: PRINT CHR$ < 4) " CATALOG" : PRINT : PRINT : PRINT "ENFONCE 

Z UNE TOUCHE POUR FAIRE UN ESSAI ";: GET R* : PRINT : HOME : GOSUB 56 

44 POKE 45281 ,131 

46 VTAB 22: PRINT " (M) ENU DE LA DISQUETTE DRIVE 1 ( R ) ECOMMENCER (T)ERMINE 
-> " ; : GET R$ 

48 IF Rf = "M" THEN PRINT : PRINT CHRf (4) * -/TM5/MENU" 

58 IF W = " R" THEN RUN 

52 IF Rf < > "T" THEN PRINT : GOTO 46 

54 TEXT : HOME : END 

56 POKE 34,6: PRINT CHR* (4) "CATALOG" ! GET R* : PRINT : POKE 34,3: HOME : R 
ETURN 



RESUME 



Nous indiquons entre parentheses la valeur normale 




POKE 42198.0 (128) 

POKE 42316,96 (162) 

POKE 42344,1,73 (}7Q) 

POKE 42402,0 (18) 

POKE 42403,96 (152) 

POKE 42490,175 (173) 

POKE 45201,155 (131) 



Titres des fichiers en mode inverse 
Les dates ne sont plus visibles 

* s!§Y!§nt yn ?ir§t (fi£hi?r§ p r 9f§§§§) 

Les dates sont remplacees par "NO DATE" 
La mention "NO DATE" n'apparaTt plus 
Troque le tiret des dates pour un / 
ESCAPE stoppe le catalogue. 
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MUSIQUE 



INDICATIF 

(o combien !) musical 



par Jacques Saussard 



Ce programme utilise DIA.LM et DIA.CARAC 
(Tremplin Micro n°2), mais fonctionne par- 
faitement en mode TEXT. 

On ne transfere le texte en page graphi- 
que... que pour I'amour de I'art ! 



18 REM INDICATIF CRETROtWE D' OREILLE) 

28 REM "MUSIC. INIT" < D'APRES N . BREAUD-POULI QUEN , PSD 
EST DISS I MULE DANS MUST CD I ATM, A PART I R DE L'ADRE 
SSE 24752 

38 PRINT CHR$ (4)"BL0AD MUSI CD I ATM" : REM "DIA.LM + 

DIA.CARAC" DE "TREMPLIN MICRO 2" 
48 TEXT : PRINT C-HR* (21) : HOME : HC0L0R= 8: POKE 23 

8,64:' CALL - 3886: HC0L0R= 3: REM EFFACEMENT DE H 

GR2 

58 D* = CHR* <4):TR = 24576: IN = 24752:10 = IN + i s IP 
= IN + 2 

68 POKE 49239, 8: POKE 49232,8: POKE 49237,8: POKE 492 
34,8 

78 WTAB 1: HTAB 1 1 :T* = " ": INVE 

RSE : FOP I = 1 TO 3: HTAB 11: PRINT T* : NEXT : 'JTA 
B 2:T* = " TRInT T$;: HTAB 31: PRINT T* 

88 'v>TAB 24: FOR I = 39 TO 1 STEP - 1: PRINT " ";: NE 
XT : FOR I = 23 TO 2 STEP - 1 : VTAB I : HTAB 1 : PRI 
NT " ";: HTAB 48: PRINT " ";: NEXT : POKE 2839,32: 
'JTAB 2: HTAB 12: NORMAL : PRINT "INDICATIF 

n 

98 CALL TR: REM PAGE TEXT COP I EE EN HGR2 
188 VTAB 6: HTAB 3: PRINT "VERSION ORI GINALE" : CALL TR 
118 READ 1 , J: IF J = 8 THEN 138 
128 POKE IN, I: POKE 10, J: CALL IP: GOTO 118 
138 RESTORE : 'JTAB 9; HTAB 3: PRINT "VERSION MANDOLINE 

. . . " : CALL TR 
148 READ I, J: IF J = 8 THEN 168 



Si voos ne possedez pas 
Tremplin Micro n°2, sup- 
primez la partie graphique 
du programme... ou com- 
mandez-le ! 



TR = Adresse de la routine 
de transfer? ($6000) 

IN = Routine Music 
($6080) 



La ligne 60 vous montre 
comment passer en mode 
HGR2 (sans rien effacer). 
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Vous apprecierez tout 
particulierement la 
version enrouee ! 




Quant a la version 
bourree (rien a voir 
avec la bourree auver- 
gnate !) je vous la 
recommande pour les 
jours sans alcool... 




France-Culture, c'est 
tout de meme quelque 
chose, non ? 



150 FOR K = 1 TO < J / 16): POKE IN, I: POKE 10,12: CALL 

IP: NEXT : GOTO 146 
168 RESTORE : UTAB 12: HTAB 3: PRINT "VERSION ENROUEE 

1 " : CALL TR 
170 READ I, J: IF J = 8 THEN 198 

186 FOR L = 1 TO CJ / 16) + 2: POKE IN, I: POKE 101,6: 

CALL IP: NEXT : GOTO 178 
198 RESTORE : VTAB 15: HTAB 3: PRINT "VERSION JAZZ... 

CA SWINGUE PRESQUE "':: CALL TP 
288 READ I, J: IF J = 8 THEN 268 

218 IF J > 32 THEN POKE IN, I: POKE 10,90: CALL IP:M = 
8: GOTO 200 

220 IF J < 32 THEN POKE IN, I: POKE 10,30: CALL IP:M = 
8: GOTO 208 

238 IF M = 8 THEN POKE IN, I: POKE 10,68: CALL 1P:M = 
1 : GOTO 288 

248 IF M = 1 THEN POKE IN, I: POKE 10,26: CALL IP:M = 
8 

258 GOTO 288 

268 RESTORE : '-'TAB 18: HTAB 3: PRINT "VERSION BOURREE 

(SAOUL-MUSIC !)" ! CALL TR 
270 READ I, J: IF J = THEN 358 
280 N = INT ( RND ( 1) * 38 > 
290 Y = Y + 1 

380 POKE IN, I: POKE 10,16: CALL IP 

310 IF Y > (N .-' 2) THEN FOR TI = 1 TO 288 : NEXT TI : G 

OSUB 428 :Y = 8 
328 POKE IN, I + N: POKE 10,1 + Nj CALL IP 
338 GOTO 278 
348 GOSUB 428 
350 GOSUB 428 

368 POKE 32,2: POKE 33,36: POKE 34,4: POKE 35,22: PR1N 
T : CALL - 198: GET P$ : HOME : VTAB 7: LIST 440,49 
8: FOR I = 7 TO 13: VTAB I: PRINT " ": NEXT 

: POKE 32,8: POKE 33,48: POKE 34,8: POKE 35,24: CAL 
L - 3886: CALL TP 

378 VTAB 28: HTAB 10: CALL - 198: PRINT " (E 'NCORE <M> 
ENU ''T) ERMINE ";: CALL TR : GET R* 

380 IF R* = "E" THEN RESTORE : HOME : GOTO 40 

390 IF Ri = "M" THEN PRINT : PRINT D*"RUN MENU" 

480 IF R* = "T" THEN TEXT : HOME : END 

410 GOTO 370 

429 FOR P = 1 TO 28:U = PEEK (49288) :Y = PEEK < - 16 
336) : NEXT : RETURN 

430 REM »«»*«*«»»«**»************ 
448 REM L'INDICATIF EST CELUI 
458 REM DE L ' EM I SSI ON 

468 REM ALLEGRO MA NON TROPPO 

478 REM DIFFUSEE A 11H30 < ! ) 

488 REM SUR LES C HAINES DE 

498 REM FRANCE-CULTURE 



LE DIMANCHE 



SUITE AU VERSO 
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I NDICATI F (suite) 

586 DATA 35,32,34,32,30,32,38,32,38,32,30,32,26,64,38 Sans ces lignes de 
, 32 , 34 , 32 , 30 , 32 , 30 , 32 , 35 , 32 , 40 ,32 , 45 , 64 , 35 ,32 , 34 , 32 DATA, je ne vous pro- 
, 38 , 32 , 38 , 32 , 38 , 32 , 22 , 32 , 23 , 64 , 26 , 32 , 26 , 32 , 38 , 64 mets plus rien ! 

518 DATA 34,32,30,32,26,32,23,32,22,32,19,32,17,64,16 
, 32 , 1 7 , 32 , 1 9 , 32 , 23 , 32 , 1 7 . 32 , 1 9 , 32 , 22 , 64 , 26 , 32 , 34 , 32 
. 35 , 32 , 38 , 32 , 22 , 32 , 35 , 32 , 34 ,64,23, 32 . 23 , 32 , 22 , 32 , 22 
,32,22,64 

528 DATA 45,16,35,16,38,16,22,32,8,0 ■ 



MUSIC.DIATM vous possedez les programmes DIACRAAAME du n°2 de 
— — ^— — — — Tremplin Micro, inutile de retaper DIA.LM et DIA.CARAC. 

Pour obtenir MUSIC.DIATM, contentez-vous de taper ces 
quelques lignes, puis de lancer le programme. Les lignes de Pokes installeront la rou- 
tine MUSIC a I'adresse 24752 ($60B0). Tout est automatique ! 



18 TEXT : HOME : PRINT " DI SQUETTE DIAGRAMME SUP ";: GET RS : PRINT 
20 PRINT CHR* (4)"BL0AD DIA . LM ,A$6886 " : PRINT CHR* (4) "BLOAD DIA.CARAC. 
A*6188" 

38 GOSUB 58: PRINT : PRINT " DI SQUETTE MUSIC SVP ";: GET R$ : PRINT 
48 PRINT CHR$ < 4 ) " BSAVE MUSI C . DI ATM ,A*6886 , L$488 " : END 

58 POKE 24752,164: POKE 24753,255: POKE 24754,173: POKE 24755,48: POKE 24 

756,192: POKE 24757,136: POKE 24758,288: POKE 24759,5: POKE 24768,286: 

POKE 24761,177: POKE 24762,96 
60 POKE 24763,248: POKE 24764,9: POKE 24765,282: POKE 24^46,288: POKE 247 

67,245: POKE 24768,174: POKE 24769.176: POKE 24778,96: POKE 24771,76: P 

OKE 24772,178: POKE 24773,96: POKE 24774.96: RETURN 



• Maintenant, pour celles et ceux qui se moquent du graphisme, voici les memes 
POKES pour MUSIC. INIT, a installer a I'adresse 768 ($300). 

Bien sur, il conviendra d'eliminer tous les CALL TR, ainsi que les acces a la page gra- 
phique HGR2. De plus on aura IN = 768. Le programme ne s en portera pas plus mal, 
je vous I'affirme, foi de Nestor ! 



MUSIC.INIT Remplacez la ligne 30 par : 30 GOSUB 530 



538 POKE 768,164: POKE 769,255: POKE 778,173: POKE 771,48: POKE 772,192: P 
OKE 773,136: POKE 774,288: POKE 775,5: POKE 776,286: 'POKE 777,1: POKE 7 
78,3 

548 POKE 779,248: POKE 788,9: POKE 781,282: POKE 782,288: POKE 733,245: PO 
KE 784,174: POKE 785,8: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3 
: POKE 798,96: RETURN 
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ECRITURE HGR 



DOS 



ProDOS 



Nos lecteurs ont des idees 



Caracteres frangais 

transposes en page graphique par M. Devaux 



Appeler la routine par 
un BLOAD FONTE.LM 
ovarii de foire un RUN 
FONTE.DEMO 



POKE 49235.0 

retablit les 4 lignes de 
texte dans la page HGR 

CALL — 998 

monte le curseur 



CALL — 1008 

recule le curseur 

CALL 16384 

est I'adresse de la rou- 
tine LM ($4000) 

CALL — 990 

deplace le curseur a la 
ligne figurant a I'adres- 
se $25 (CV) 



10 

28 
36 



48 

58 
68 
78 
88 
98 

188 

118 

128 
138 
148 

158 
168 

178 
188 
198 
288 
218 



FONTE.DEMO 



GOTO 
218 : 



168 
GOTO 
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TEXT : NORMAL : PRINT CHR$ (21) 
HGR : TEXT : HOME :T = 1 

UTAB 21: PRINT " CTRL-T = TEXT - . CTRL-F = FINI DE J 

0UER" + "CTRL-C = TERMINE ET LA PAGE HGR APPARAIT" + 

" UTIL1SEZ LES QUATRE FLECHES DE L'APPLE " 

UTAB 1: HTAB 1: IF T = 8 THEN T = 1: TEXT : G0SUB 21 

8 

GET A*: A = ASC (A*) 
IF A = 6 THEN POKE 49235,8 
IF A = 28 THEN TEXT : G0SUB 
IF A = 11 THEN CALL - 998 

IF A = 127 THEN : CALL - 1668:A* = " ":D = 1 
PRINT A*;: IF D = 1 THEN D = 8: CALL - 1888 

U = PEEK (37)! IF U = 1<? THEN CALL - <?58 

H = PEEK (36) 
IF A < > 3 THEN 58 

POKE 49236,0: POKE 49234,6: POKE 49239,8: POKE 49232 
,8:T = 

16384: G0SUB 216: GOTO 56 

22: HTAB 1: PRINT " CM) ENU DE DISQUETTE CE)NC0RE 
(T^ ERMINE" ; : GET Rt : PRINT 
IF R$ = "M" THEN PRINT CHR$ 
THEN 48 
■T" THEN 168 
END 

POKE 37, Y: CALL - 996 



CALL 
UTAB 



n g n 



IF R* = 
IF R* < > ' 
TEXT : HOME 
POKE 36, H: 



<4>"RUN MENU" 



RETURN 



Nous publions in-extenso le programme (inspire de DIA.LM) que nous a adresse M. Devaux, 
mais nous I'avons complete par une petite routine de demonstration qui se suffit a elle-meme. 

UTILISATION ; Sauvez FONTE.LM (pages 34-35) par un BSAVE FONTE.LM, A$4000, L$680. 



ATTENTION ! Ce programme ne supporte pas les modes INVERSE et FLASH. 



VERIFICATION 



T = : FOR I = 16384 TO 18047 : T = T + PEEK(I) : NEXT : PRINT T 65526 
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MICRO-BASIC 



ProDOS 



Michel EDELIN 
vous propose son 

CALENDRIER 
PERPETUEL 

Chaque annee, 
vous I'editerez sur : 

• IMAGEWRITER ou 

• EPSON RX 80 ( v Qir page 38) 
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15 
28 
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30 
35 
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45 
58 
55 
48 
65 
78 
75 
30 

85 

99 

95 
180 
185 
118 
115 

128 

125 



TEXT : NORMAL ; PRINT CHR* (21); CHR* (12): HOME 
PRINT "********#***************#********#*****#" 

PRINT ******* CALENDRIER ******" Sous ProDOS , Qcer 

PRINT PERPETUEL ******" PR£ , p Qr PRINT CHRS(4); 

PRINT "****************************************" "PR£1" (ligne 215) puis 

FOR I = 1 TO 1588: NEXT I PR£0 par PRINT CHR$(4); 

GOTO 485 "PR£Q" (ligne 350) 

REM SOUS PROGAMME D'ECRITURE DE C HAINES DE CARACTERES 

ES* = "": FOR X = 1 TO ES:ES* = ES* + E* : NEXT X: RETURN 

REM CALCUL ET POSITION DU 1 JOUR 

P = (U - 1) / 180:0 = INT <P / 4>:M = 36 * INT ((5 * (U - 1)) / 4) - I 
NT (P) + Q 

Y = M - (7 * INT (M / 7>) + 1: IF INT (U / 4) = U / 4 THEN B = 1 :M(2) = 
29 

A<1) = M(1):C<1) = Y: FOR W = 2 TO lllA(U) = Add - 1 ) + M(W):C<W) = Y + ( 
A(W - 1) - ( INT (A(W - 1) / 73 * 7))s IF C(U) > 7 THEN C(W) = C(W) - 7 
NEXT W 

IF Y = < 8 THEN Y = 7 + Y 
N = M(I) : IF I = 2 AND B = 1 THEN N = 29 
PA* = " PATIENTE 

HOME : <v>TAB 12: FOR PA = 1 TO 38 STEP 10: INVERSE : HTAB 15: PRINT MID* 
(PA*, PA, 18): NEXT : NORMAL 

IF Y = 1 THEN El* = "": GOTO 138 
ES = Y - 1 :E* = " " : GOSUB 48:E1* = ES* 
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13@ EE* = " " :M0*( I ) = 
135 FOR K = 1 TO N: IF LEN < STR* < K ) ) = 1 THEN K* = " " + STR* (K)l GOTO 
145 

148 K* = STR* (K) 

145 MO*(I) = MO*'' I) + K* + EE* 

150 NEXT K 

155 NM = LEN (MO*( I ) + El*) :ES = 168 - NM:E* = " ": GOSUB 60:E2* = ES* 
160 MO*a> = El* + HOt<l) + E2* 

165 I = I + 1 :Y = Y + CN - 28) : IF Y > 7 THEN Y = Y - 7 
170 IF I = 13 THEN GOSUB 185: GOSUB 245: GOTO 490 
175 GOTO 105 
180 : 

185 REM COUPURE DU MO IS EN SEMAINE 
190 : 

195 FOR G = 1 TO 12:P =1: FOR D = 1 TO 6:MI*(G,D) = MID* (MO*( G) . P , 28) : P = 
P + 28: NEXT D: NEXT G: RETURN 

200 : 

205 REM EDITION DE L ' ANN EE 
210 : 

215 PR£ 1: PRINT CHR* (27);"N"; CHR* (15) J CHR* <9);"136N" 

228 U* = "": FOR I = 1 TO 3:U* = U* + MID* ( STR* CU> ,1,1) + " ": NEXT :U* 

= U* + RIGHT* ( STR* (U) ,1) 
225 E* = "*":ES = 80: GOSUB 60: PRINT ES*: PRINT 

238 PRINT CHR* (27);"N"; CHR* (14); TAB( 15) ;U*: PRINT : PRINT CHR* U5)?E 

S*: PRINT : PRINT : PRINT 
235 RETURN 
240 : 

245 REM EDITION DU CALENDRI ER 
258 : 

255 FOR H = 1 TO NE: IF H > 1 THEN PRINT CHR* (12) 
260 GOSUB 205 

265 FOR G = 1 TO 12 STEP ML: IF ML = 4 THEN 295 
270 IF ML = 2 THEN 285 

275 TA = 12: PRINT CHR* (27);"N"; CHR* (14): IF (G / 2) - INT (G / 2) = 8 T 

HEN PRINT : PRINT : PRINT : GOTO 308 
280 IF G > 1 THEN PRINT CHR* (12): GOSUB 205: PRINT CHR* (14): GOTO 388 
285 IF G = 7 THEN PRINT CHR* (12): GOSUB 285 
290 TA = 1 1 : ES = 23:E* = " ": GOSUB 68: GOTO 388 

295 TA = 10:ES = 16 :E* = " ": GOSUB 60: PRINT CHR* (27);"Q"; CHR* (15); 

300 PRINT TAB( TA ) ; MA* ( G ) ; : IF ML = 1 THEN PRINT "": PRINT : PRINT : PRINT 

!T& = 8!Es$ = ""! GOTO 315 

305 PRINT ES*;MA*(G + 1);: IF ML = 2 THEN PRINT "": PRINT :TA = 6:ES = 12: 

GOSUB 60: GOTO 315 
310 PRINT ES*;MA*(G + 2);ES*;MA*(G + 3): PRINT :TA = 6:ES = 5: GOSUB 68 
315 PRINT TAB( TA) : : FOR Z = 1 TO ML: PRINT JO*;ES*;: NEXT Z: PRINT : IF ML 

= 4 THEN PRINT CHR* (27) "r": PRINT CHR* (27)"*"; 
320 PRINT TAB( TA) : FOR Z = 1 TO ML: PRINT SO*;ES*;: NEXT Z: PRINT : IF ML 

= 4 THEN PRINT CHR* (27) "r": PRINT CHR* (27) "4" J 
325 FOR D = 1 TO 6 

338 PRINT TAB( TA) ;MI*(G ,D) ; : IF ML = 1 THEN PRINT "": PRINT : PRINT : GOT 
345 

335 PRINT ES*;MI*(G + 1,D);: IF ML = 2 THEN PRINT "": PRINT : GOTO 345 
340 PRINT ES*;MI*(G + 2,D) ;ES*;MI*(G + 3,D): PRINT (SUITE PAGE 38) 
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345 
358 
355 
366 
365 
379 

375 

386 
385 

390 
395 
406 

405 
419 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
490 

495 
500 



505 



NEXT D: IF ML = 4 THEN PRINT 
NEXT G: NEXT H: PR£ 0: RETURN 

REM ENTREE DES DONNEES 



PRINT 



E N T R E 2 



L' ANNE 



Bt = " 
E CONSI DEREE 

HOME : VTAB 2: FOR J = 1 TO 100 STEP 26: HTAB 10: INVERSE : PRINT MID* 
<Bt,J,20>: NEXT J 

VTAB 12: HTAB 16: PRINT "-> ": NORMAL 
VTAB 12: HTAB 20: PRINT "1900";: HTAB 20: INPUT 

U > 2006 THEN 385 
IF NOT U THEN TEXT 



;Ut:U = UAL (U*> : IF 



HOME : END 
: INVERSE : PRINT 



1 POUR L' ANN EE 



NOMBRE DE MO IS PAR LIGNE (1/2/4:* -> 
1 OR ML = 3 OR ML > 4 THEN 406 



GOTO 425 
GOTO 425 



HOME : VTAB 4: HTAB 11 
VTAB 8: PRINT : PRINT 
L = UAL (ML*) : IF ML 
PRINT ML* 

IF ML = 1 THEN NP = 6: St = "S" : 
IF ML = 2 THEN NP = 2 : St = "S": 
NP = 1 :St = " " 

PRINT : PRINT "EDITION DU CALENDRIER SUR ";NP;" PAGE" ; St 
PRINT : INPUT "NOMBRE D' ED IT I ON DESIREE -> " ;NE 
NP = NP * NE: IF NP > 1 THEN St = "S" 
PRINT : PRINT "CHARGER AU MO INS ";NP;" FEUILLE";St 
VTAB 20: HTAB 1: PRINT "VALIDATION <0/N) ";: GET A* 
IF At < > "0" AND At < > "N" THEN 445 
PRINT At 

IF At = "N" THEN 368 
GOTO 88 

REM VARIABLES DIVERSES 

DIM M(12) ,A<12> ,C< 12) f M0*<12> ,MIt(12,12) ,MAt<12) 



U: 



NORMAL 

" : : GET ML* SM 



B = 6:MU) 

= 31 :M<4) 
JOt = "DI 
MAt < 1 ) = " 

MARS 

At<6) = " 
MAt < 7 ) = " 

V E M B R E 



R 



= 31 :M(3) = 
= 30:M<6) = 
LU MA ME 
J A N V I E 
» ;MAt(4) = " 
J U 1 N 
JUILLET 
:MAt(12) = 



31sM<5) = 31:M<7) = 31:M<8) = 31:M(10) = 31:M(12) 
36:M<9) = 30:M(11) = 30:M<2> = 28:1 = 1 

JE VE SA " :SOt = " " 

:MAt(9) ="SEPTEM8R E":MAt(3) = " 
A V R I L " :MAt(5) = " MAI " :M 

:MAt<8> = " A U T 

:MAt(10) = " OCTOBRE " : MAt < 1 1 ) = " N 
DECEMBRE" :MAt(2) = " F E V R I E R 



510 GOTO 360 



215 PR£1 : PRINT CHR$(27): a": CHR$(27); "G" 

220 US = STR$(U) : E$ = " " : U$ = LER$(U$.l) + E$ + 

MID$(U$,2.1) + E$ + MID$(U$.3.1) + E$ + RIGHT$(U$,1) 
230 PRINT CHR$(27); "W"; CHR$(1); TAB(15): U$; CHR$(27); "W"; 

CHR$(0) : PRINT : PRINT ESS : PRINT : PRINT : PRINT 

275 TA = 12 : PRINT CHR$(27); "W"; CHR$(1) : IF (G/2) - 

INT(G/2) = THEN PRINT : PRINT : PRINT : GOTO 380 
280 IF G 1 THEN PRINT CHR$(12) : GOSUB 205 : PRINT 



« IPSON RX 80 

CHR$(27); "W"; CHR$(I ) : GOTO 300 
285 IF G = 7 THEN PRINT CHR$(1 2) : GOSUB 205 : GOTO 290 
290 TA = 1 1 : ES = 23 : E$ = " " : GOSUB 60 : PRINT CHR$(18): : 

GOTO 300 

295 TA = 10 : ES = 16 : E$ = " " : GOSUB 60 : PRINT CHR$(15) ; 
315 PRINT TAB(TA); : FOR Z = 1 TO ML : PRINTJOS: E$; : NEXT Z : 
PRINT 

320 PRINT TAB(TA) : FOR Z = 1 TO ML : PRINT SOS: ESS: : NEXT Z 
: PRINT "" 
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Votre bibliotheque I 

INFORMATIQUE I par Guy-HACHETTE 

t Creez vos jeux d'aventure sur micro-ordinateur 

C'est le titre du livre d'un auteur francais, J.-M. 
PEZERET (Eyrolles), et cela meritait d'etre souligne, 
a mon avis du moins. 

Comrr.em elaborer un scenario, choisir un theme, 
structurer les donnees et le programme lui-meme, 
utiliser le graphisme ? Le sujet est vaste et le pro- 
jet ambitieux ! 

L'ouvrage se propose de donner un support techni- 
que a votre imagination, et de decrire une metho- 
dologie de programmation pour la realisation de 
jeux d'aventure, notamment au trovers d'un exem- 
ple concret, que vous batirez de A a Z. II semble 
qu'il y parvienne, mais le Basic est celui du T07 et 
du M05, c'est-a-dire un langage qui, notamment 
sur le plan du graphisme, differe tres sensible- 
ment de celui de I'Apple. II serait interessant de 
realiser le meme ouvrage en Applesoft. 

Pourtant, si vous le pouvez, lisez le livre de J.-AA. 
Pezeret et notamment son chapitre 6, consacre 
aux modules de base. 

f Le Basic vu par des pedagogues 

ConnaTtre le Basic est a I'ordre du jour, notamment 
dans I'enseignement. Les ouvrages en francais 
sont deja nombreux, mais ne resultent pas tou- 
jours de travaux recents. Est-ce la raison qui a con- 
duit Hachette Informatique a publier une excel- 
lente traduction de ce Manuel du Basic (par M. 
Waite et AA. Pardee) ? Peut-etre. 

II reste que les Francais disposent maintenant d'un 
veritable cours qui leur permettra de se familiari- 
ser avec le Basic ou d'en approfondir la pratique. 

Un detail : le chapitre 7 y est consacre a un pro- 
gramme de simulation du Rubik's cube sur ordina- 
teur personnel. 

Le Manuel du Basic comporte de nombreuses rou- 
tines developpees avec le Basic IBAA. On sait qu'il 
s'agit du Basic Microsoft. Ce n'est evidemment pas 
l ideal pour qui possede un Apple, mais la decou- 
verte d un autre langage, surtout lorsqu'il est tres 
proche du votre, se revele generalement passion- 
nante, n'est-il pas vrai ? G.-H. 



CREEZ vos 
JEUX D'AVENTURE 

SUR MICRO-ORDINATEUR 



J.M. PEZERET 
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ECRANS CONDENSES 

UN PROGRAMME DE MAURICE CHAVELLI 

ANS la serie "Ecrans condenses", le numero 3 de Tremplin Micro pre- 
sentait le programme "ECRANLM" permettant d'economiser de la 
place sur les disquettes pour memoriser des masques en 40 colonnes. 
Le present programme va plus loin sur deux plans : 

| Les masques sont codes suivant un principe 
simple : tout caractere qui se repete est 
detecte et a partir du troisieme. on se contente 
de compter ces caracteres. A la fin du comp- 
tage, on inscrit le nombre obtenu. Cette techni- 
que permet d'economiser facilement la moitie 
de la memoire. Pour ne pas trop compliquer le 
programme, j'ai "ignore" le cas ou un caractere 
se repete plus de 256 fois. Si cela se produit sur 
un masque, vous aurez des melanges. Si tous 
vos masques comportent un cadre, il n'y aura 
aucun probleme. 

n Les masques sont regroupes dans une TABLE 
qui est ensuite memorisee sur disquette. II suf- 
fit done de caser cette table quelque part en 
memoire, I'appel d'un masque se faisant sim- 
plement en indiquant son numero. 




CREATION 



Le programme basic ECR.CREER permet de creer la TABLE a partir de masques (*) deja stockes sur dis- 
quette. II suffit de suivre les instructions du programme ; la table se construit a partir de ladresse $2000 
(8192 en decimal). La routine ECR.IN est chargee du codage et du transfert, elle a ete agrementee de 
nombreux commentaires et, pour ne pas depayser le lecteur, elle utilise le meme principe d'exploration 
de lecran que ECRANLM du numero 3. J'ai d'ailleurs supprime la reference a l adresse $25 qui corres- 
pond a la position verticale du curseur (VTAB), celle-ci est en effet inutile car elle est ignoree par la rou- 
tine BASCALC ($FBC1) qui utilise "A" comme indicateur de ligne... le hasard fait parfois bien les choses ! 
La table contient en tete les adresses de debut de chaque masque (2 octets par masque), puis les mas- 
ques codes a la file. Attention a I'occupation memoire ! Le programme vous lindique en permanence. 



LECTURE 



Le programme basic ECR.LIRE vous montre comment utiliser la routine ECR.OUT qui permet de lire une 
TABLE. Le programme est prevu pour lire a I'adresse $2000 (il faut done au prealable charger une table 
par BLOAD TABLE, A$2000), mais il est tres facile a modifier (ligne 55) ; d'ailleurs la TABLE est relogea- 
ble, mais attention d ne pas "ecraser" un programme ! Pour changer un peu, la routine ECR.OUT ecrit 
les lignes en bas de I'ecran, puis fait un scolling (montee de l ecran d une ligne), ce qui est plus agreable 
a I'ceil ! Vous pouvez imaginer d'autres transferts : de haut en bas ; de droite a gauche... si vous avez 
du temps et du courage. Maurice chavelli. 

(*) Commencez done par les cr6er, en utilisant le programme paru dans Tremplin Micro n°l (de la page 17 a la page 23). 
Attention ! il s'agit d'&rans TEXT et non de pages graphiques. 
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ECR.CREER 



10 

14 
15 
16 
28 
24 
25 
26 
36 



46 

50 
60 
70 
74 
75 
76 
80 
90 
100 
110 

120 
124 
125 
126 
127 
130 

140 

150 
160 
170 
180 
184 
185 
186 
190 

280 



204 
205 
206 
218 
226 
238 



TEXT :D$ = 
§: POKE AD 

REM 

REM CHARGEMENT 

REM 

PRINT D$ " BLOAD 
REM 

REM MENU 
REM 

GUSUB 370: VTAB 
B 6: PRINT 
UT "NOM DU 
IF A$ = "C" 
ONQUE POUR 
IF A* = "F" 



CHR* (4) 
- i ,33 



POKE 6,8: POKE 



7,33:N = 



8:AD = 8194: POKE AD - 2, 



ROUTINE 



ECR.IN" 



Copiez la routine ECR.IN (page 43) et 
sauvez-la sur disquette par un BSAVE 
ECR.IN. A$300, L$67 



28: INVERSE : PRINT "ENTRER 'C POUR LE CATALOGUE" : HTA 
"ENTRER 'F' POUR TERMINER ": NORMAL : VTAB 16: HTAB 6: INP 
MASQUE ? " ;A$ 

THEN HOME : PRINT D*" CATALOG" : PRINT : PRINT "TOUCHE QUELC 
LA SUITE": GOSUB 578: GOTO 38 
THEN 148 

(7) 



216,8 

(27) 
130 



Sous ProDOS, transformez ainsi 
la ligne 80 : 

80 POKE 48984,0 : PRINT D$ 
BLOAD "; AS: POKE 216,0 

Cela vous evitera I'inevitable 
message d'erreur : 

NO BUFFERS AVAILABLE 



PEEK (6): POKE AD + 1 , PEEK (7>:AD = AD + 



S^AUVEGARDE" : PRINT : HTAB 12: PRINT " (A)NN 



B = PEEK (6) :C = PEEK 
ONERR GOTO 538 

REM 

REM CHARGEMENT MASQUE 

REM 

PRINT D$" BLOAD" ;A$ : POKE 
POKE 6,B: POKE 7,C 

GOSUB 576: I F A* = CHRt (27) THEN 30 
IF A* = CHR$ (13) THEN 
CALL - 198: GOTO 180 
REM 

REM APPEL ROUTINE 
REM ET MISE A JOUR ADRESSE 

REM 

CALL 768 :N = N + 1 : POKE AD 
2: GOTO 30 

GOSUB 620: HTAB 12: PRINT " 
ULAT I ON" 

GOSUB 570: I F A* = "A" THEN RUN 
IF At = "S" THEN 180 
CALL - 198: GOTO 150 

GOSUB 620: HTAB 6: INPUT "SOUS QUEL NOM? " ;A* 
REM 

REM COMPACTAGE TABLE 
REM 

POKE 60,0: POKE 61,33: POKE 62, PEEK (6): POKE 63, PEEK (7): POKE 66, N 
* 2: POKE 67,32: CALL 865 
FOR E = TO 2 * N - 2 STEP 
256 - 256 + 2 * N:H = INT 
193 + E , H : NEXT 

REM 

REM SAUVEGARDE TABLE 

REM 

PRINT D«"BSAVE" ;A*;" ,A*2000,L" ;D 
GOSUB 620: HTAB 6: PRINT "UNE AUTRE TABLE ?" 
GOSUB 570: IF A* = "0" THEN RUN 



2:V = PEEK (3192 + E) 
(V / 256) : POKE 8192 + 



+ PEEK 
E,V - H 



(8193 + E") * 
* 256: POKE 8 



SUITE PAGE 42 



TREMPLIN MICRO 



4 I 



248 IF A$ = "N" THEN 298 

259 CALL - 198: GOTO 230 

260 REM 

278 REM POUR LE PLAISIR 
280 REM 

298 A* = "ALORS SALUT... A LA PROCHAINE . . . ET BONJOUR CHEZ TOI...":B* = "": 
HOME : VTAB 18 

308 FOR C = 1 TO LEN (A*) : FOR D = 1 TO 50: NEXT D: IF PEEK < - 16384) > 
128 THEN 330 

310 IF LEN <B4> < 39 THEN B% = B* + MI D* <A* , C , 1 ) : HTAB 40 - LEN <B*>: P 
RINT B$; : NEXT C 

320 B* = RIGHT* <B*. LEN <B$) - 1) + MI D$ <A*,C,1>: HTAB 1: PRINT B*; : NEX 

T C: GOTO 300 
330 NORMAL : HOME : END 

340 REM 

358 REM S/P AFFICHAGE ECRAN 

368 REM 

378 HOME : VTAB 1 : HTAB 8 
388 PRINT "CREATION TABLE DE MASQUES" 
390 HTAB 8: FOR E = 1 TO 25: PRINT "-";: NEXT 
400 VTAB 5: HTAB 1: GOSUB 490 

418 D = PEEK (6) + PEEK (7) * 256 - 8448 + 2 * N 
420 k-'TAB 8: HTAB 5: PRINT "LONGUEUR DE LA TABLE : " :D 
430 UTAB 10: HTAB 5: PRINT "NOMBRE DE MASQUES : " ;N 
440 VTAB 12: GOSUB 498: VTAB 22: GOSUB 498 
450 VTAB 22: FOR E = 1 TO 40: PRINT "_" ; : NEXT 
468 PRINT : PRINT " <ESC>: NONVALIDE ... < RETURN) : VALIDE" 
478 VTAB 16: HTAB 6 
488 RETURN 

498 FOR E = 1 TO 48: PRINT "_" ; : NEXT : RETURN 

588 REM 

518 REM TRAITEMENT ERREUR 
528 REM 

538 HOME : UTAB 18: HTAB 12: FLASH : PRINT " INTROUVABLE "': NORMAL 
= 1 TO 18: CALL - 198: NEXT : GOTO 38 

540 REM 

558 REM S/P ATTENTE TOUCHE 

568 REM 

578 IF PEEK ( - 16384) < 128 THEN 570 
580 GET A*: RETURN 

590 REM 

600 REM S/P EFFACE LIGN. 16 A 21 

610 REM 

620 POKE 34,15: POKE 35,21: CALL - 936 
630 P0KE34,8: P0KE35.24: RETURN 




FOR E 




Faites connaTtre TREMPLIN MICRO a ceux de vos amis qui 
possedent un Apple (et n'oubliez pas qu'un numero de la revue 
ne coute pas plus cher que quelques mauvaises photocopies !). 
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• ECR.IN 



Assemblage par ProCODE 











8 


BAS 


EQU 


$6 




Adresse de . . . 










1 


HAUT 


EQU 


%7 


• 


... 1 a tabl e 










2 


LIGNE 


EQU 


*8 














3 


SUA 


EQU 


f9 


j 


Sauvegarde A 










4 


DBLE 


EQU 


$1A 


i 


si meme caractere 










5 


NBR 


EQU 


$1B 


f 


Nbr de carac teres identiques 










6 


BASL 


EQU 


$28 


p 


Adresse premiere colonne 










7 


BASCALC 


EQU 


*FBC1 


f 


Cal cul e 1 ' adresse de 










3 


MOVE 


EQU 


*FE2C 


< 


Deplacement memoire 










9 


+ 








* Base BASL d'apres A 










18 




ORG 


$300 






0330 : 


A? 


01 




1 1 




LDA 


£*1 




* 


0302: 


85 


1A 




12 




STA 


DBLE 






0304 : 


A? 


00 




13 




LDA 


£$0 




* In i t i al i sat i ons 


0306: 


85 


08 




14 




STA 


LIGNE 




* 


0308: 


85 


IB 




15 




STA 


NBR 


. 




036A: 


85 


09 




16 




STA 


SUA 




* 


930C: 


20 


CI 


FB 


17 


DEBUT 


JSR 


BASCALC 






030F: 


AO 


00 




18 




LDY 


£$8 


• 


Debut de boucle Y 


031 1 : 


Bl 


28 




19 


BCLY 


LDA 


(BASL) ,Y 


• 


On wa chercher le caractere 


0313: 


A6 


1A 




20 




LDX 


DBLE 


; 


Est-on en "double" ? 


0315: 


D0 


IB 




21 




BNE 


SUITE2 


j 


Non al ors . . . 


0317: 


C5 


89 




22 




CMP 


SUA 


j 


Ou i -> toujours le meme ? 


0319: 


DO 


05 




23 




BNE 


SUITE1 


; 


Non al ors . . . 


031B: 


E6 


IB 




24 




INC 


NBR 


• 


Ou i -> on incremente NBR 


031D: 


4C 


3D 


03 


25 




JMP 


SUITE4 






0320 : 


48 






26 


SUITE1 


PHA 




■ 


On memorise A sur la pile 


0321 : 


A? 


01 




27 




LDA 


£$ 1 




On "marque" 


0323: 


85 


1A 




28 




STA 


DBLE 


. 


DBLE -> plus en "double" 


0325: 


A5 


IB 




29 




LDA 


NBR 




et on ecr it 1 e . . . 


0327: 


20 


54 


03 


30 




JSR 


ECRIT 


• 


. . .NBR a la su i te 


032A: 


A9 


00 




31 




LDA 


£*8 




On i n i t i al i se . . . 


032C: 


85 


IB 




32 




STA 


NBR 




. . . 1 e NBR 


032E: 


68 






33 




PLA 






On recupere A 


032F: 


4C 


3A 


03 


34 




JMP 


SUITES 






0332: 


C5 


19 




35 


SUITE2 


CMP 


SUA 


• 


Est-ce le meme ? 


0334: 


DO 


04 




36 




BNE 


SUITE3 


; 


Non, alors on poursuit 


0336: 


A2 


00 




37 




LDX 


£$0 


; 


Ou i , al ors on . . . 


0338: 


36 


1A 




38 




STX 


DBLE 


j 


. . ."marque" DBLE -> 


033A: 


20 


54 


03 


39 


SUITE3 


JSR 


ECRIT 




On $cr i t 1 e carac tere 


033D: 


C8 






40 


SUITE4 


I NY 






Un caractere de plus 


033E: 


C8 


28 




41 




CPY 


£*28 




Est-on a 40 ? 


0340: 


D0 


CF 




42 




BNE 


BCLY 




Non -> on tourne 


0342: 


E6 


08 




43 




INC 


LIGNE 




Oui -> + une ligne 


0344: 


A5 


08 




44 




LDA 


LIGNE 






0346: 


C9 


18 




45 




CMP 


£*18 




24 1 ignes ? 


0348: 


D8 


C2 




46 




BNE 


DEBUT 




Non -> on tourne 


034A: 


A5 


1A 




47 




LDA 


DBLE 




Est-on en "double" ? 


034C: 


D0 


05 




48 




BNE 


SUITE5 




Non -> t ermine" SUITE PAGE 44 



43 



034E: 


A5 


IB 


49 


LDA 


NBR 


; Ou i -> on £cr i t NBR 


8358: 


28 


54 83 


58 


JSR 


ECRIT 




6353: 


68 




51 SUITE5 


RTS 












52 ******** 


S/P 


d'^criture 


en memo ire ******** 


8354: 


A2 


08 


53 ECRIT 


LDX 


£•$8 


A 


8356: 


81 


06 


54 


STA 


(BAS.X) 


A 


0358: 


85 


89 


55 


STA 


SVA 




835A: 


E6 


86 


56 


INC 


BAS 




835C: 


D8 


82 


57 


BNE 


ECRIT1 




835E: 


E6 


07 


58 


INC 


HAUT 




8368: 


60 




59 ECRIT1 


RTS 












60 ******** 




S/P de transfer t ******** ^"^UJlilA* 


0J61 : 




n 


61 


LDY 






8363: 


20 


2C FE 


62 


JSR 


MOVE 




8366: 


68 




63 


RTS 


















BSAVE ECR. IN,A*308 ,L*67 


Table 


des symboles ordre alphabetique 










-BASCALC. 


. .*FBC1 -BASL 


$0028 -BCLY -$0311 


-DBLE 




. .$881A 


-DEBUT. . . 


. .$030C -ECRIT *0354 -ECRIT1 $8368 


-HAUT 




. .$0007 


-LIGNE. . . 


$0fl0R -Mfl'JF 


4FF?r -NRR ifiPIIR 


-SUITE1 . 


. .$6328 


-SUITE2. . 


.$8332 -SUITE3 $833A -SUITE4 *033D 


-SUITES. 


. .*0353 


-SVA 


. .-$0009 








• ECR.OUT > 






Assemblage par ProCODE 














8 DEP 


EQU 


$6 










1 ARR 


EQU 


$8 










2 DBLE 


EQU 


$1A 


; 8 si un caractere se reproduit 








3 SUA 


EQU 


tlB 


: Memor i se A 








4 LIGNE 


EQU 


tic 


; Ligne courante 








5 NBR 


EQU 


$1E 


: Nbr de caracteres identiques 








6 SCROLL 


EQU 


»FC?8 


; Mun te l ecran d'une ligne 








7 


ORG 


$380 


8388: 


A? 


87 


8 


LDA 


e$7 


; Adresse ■ . . 


8382: 


85 


09 


? 


STA 


ARR+1 


; de la 


8304: 


A9 


D8 


10 


LDA 


e$D0 


: 1 i gne 


0386: 


85 


08 


11 


STA 


ARR 


; numero 24 


8388: 


A9 


80 


12 


LDA 


e$0 




838A: 


85 


1C 


13 


STA 


LIGNE 


■ 


838C: 


85 


IB 


14 


STA 


SVA 


; * I n i 1 1 al i sat i ons 


838E: 


A9 


01 


15 


LDA 


£•$1 


; * 


8318: 


85 


1A 


14 


STA 


DBLE 


; * 


8312: 


20 


70 FC 


17 DEBUT 


JSR 


SCROLL 


; On remonte d'une 1 igne 


0315: 


A8 


00 


18 


LDY 


£*0 


8317: 


A6 


1A 


1 9 BCLY 


LDX 


DBLE 


; Est-ce en double ? 


8319; 


D8 


0D 


20 


BNE 


SU1TE2 


; Non , alors un autre caractere 


831B: 


C6 


IE 


21 


DEC 


NBR 


; Ou i , alors un de moins 


831D: 


D8 


84 


22 


BNE 


SUITE1 


; Si -> -fin de double 



GUY-HACHETTE 



831F: 


A2 


01 




23 




LDX 


£$1 


> 


On "marque" 


0321 : 


86 


1A 




24 




STX 


DBLE 


1 


DBLE 


9323: 


A5 


IB 




25 


SUITE1 


LDA 


SMA 






9325: 


4C 


3E 


03 


26 




JMP 


SUITE4 






835§: 


29 


50 


93 


2? 


§UiT§2 


JSR 


Lit 




On lit If? rarar t^rp 


932B: 


C5 


IB 




28 




CMP 


SUA 




Le meme caract^re ^ 


832D: 


D9 


9F 




29 




BNE 


SUITE4 


m 

f 


Non. alor^ on tournp 


932F : 


29 


50 


93 


39 




JSR 


LIT 


j 


Rui. a 1 nr c nn u a rhprrhpr 

w U 1 ) CA 1 U 1 3 \Jl\ */ O, UNCI L1ICI 


0332 : 


C9 


00 




31 




CMP 


£$0 


f 


Fcf-il final A 7Prn ? 


0334: 


F0 


06 




32 




BEQ 


SUITE3 




Qui. a 1 o r s nss dp t r o i s i e 


0336: 


85 


IE 




33 




STA 


NBR 




Non, alors on le memorise 


8338: 


A9 


00 




34 




LDA 


£$9 




On "maraue " 


033A: 


35 


1A 




35 




STA 


DBLE 




DBLE 


033C: 


A5 


IB 




36 


SUITES 


LDA 


SUA 






033E : 


91 


08 




37 


SUITE4 


STA 


(ARR) ,Y 




On £ c r i t 1 p r at at t^rp 


0349 : 


35 


IB 




38 
39 




STA 


SVA 


i 


On m £ rri n r i c, p 1 p rArsr tPrp 
* DETECTER LFS "DDIIRLFS" 


9342: 


C8 






49 




I NY 




» 


Un car^ct^rp rip nlu^ 

Wll WQI — I — . ~ 1 t U w U 1 U 3 


0343: 


C0 


28 




41 




CPY 


£$28 




Est-on a 40 "> 

1 — — . Wll w i \M 


0345 : 


D8 


D0 




42 




BNE 


BCLY 




1* J n n a 1 nr-c nn romp f r a ' 

1 * 1 1 , 9 1 wl 3 wll I "lilt <— cx . 


0347: 


E6 


1 C 




43 




INC 


LI GNE 


[ 
5 


Oiii a 1 nnc imp linnp 

wUI \ 9 1 UI 3 U 1 1 tr 1 1 Ull c • • • 


0349: 


A5 


1C 




44 




LDA 


LI GNE 




rip n 1 1 1 o. 

• ■ ■ -IT L» 1 U 3 


034B: 


C9 


18 




45 




CMP 


£$ 1 8 




Est-on a 24 ? 

l— — ' i— III O £. i . 


034D: 


D0 


C3 




46 




BNE 


DEBUT 


« 


Non . a 1 n r <=. ft n r p n a r t 

nun i Oi i wi 3 uii i r u ai v 


034F: 


60 






47 




RTS 
















48 


******** 


S/P 


DE LECTURE 


DE 


CARACTERE ******** 


9359 : 


A2 


06 




49 


LIT 


LDX 


£$9 






0352: 


Al 


06 




56 




LDA 


(DEP.X) 




On lit 1 e carac tere 


0354: 


E6 


06 




51 




INC 


DEP 




On avance en m^moire 


0356: 


D0 


02 




52 




BNE 


LIT1 




Si on a 9, on i ncr^mente . 


0358: 


E6 


9? 




53 




INC 


DEP+1 




...aussi la partie haute 


835A: 


68 






54 


LIT1 


RTS 









BSAVE ECR.OUT,A*388 ,L*5B 



Table des symboles 

-ARR $0008 

-DEP $0006 

-NBR $00 IE 

-SUITE3 $933C 



ordre alphabetique 

-BCLY $9317 

-LI GNE $991C 

-SCROLL $FC70 

-SUITE4 $933E 



-DBLE $901A 

-LIT $0359 

-SUITE1 $0323 

-SUA $09 IB 



-DEBUT $9312 

-LIT1 $935A 

-SUITE2 $9328 



ECR.LIRE 



18 
20 
30 
40 

59 



ONERR GOTO 49 
TEXT : HOME :D$ = CHR$ (4) 
PRINT D$" BLOAD ECR.OUT" 
HOME : VTAB 3: HTAB 5: INVERSE 
NORMAL 

'•/'TAB 10: HTAB 19: INPUT "NUMERO DU MASQUE ? " ;A 
55 AD = 8192: REM CORRESPOND A $2908, A DETERMINER SELON 
HARGEMENT 

69 POKE 6, PEEK (AD - 2 + 2 * A) : POKE 7, PEEK (AD - 1 + 2 * A) : CALL 768 

70 IF PEEK ( - 16384) < 128 THEN 70 

80 GET A$: GOTO 40 , 



PRINT "LECTURE D'UNE TABLE DE MASQUES" : 



L'ADRESSE DE C 



TREMPLIN MICRO 
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graphisme rrsnnwroi 



Basic et langage machine 



I TRACER UN CADRE 

I dans une page graphique 

fijl ASIC ou LANGAGE MACHINE ? La seconde methode est un peu plus rapide (notam- 
£J ment pour effacer I'ecran), mais le programme en Basic est tellement simple... que 
Ton hesite a aller plus loin. 

II tient en effet en 3 lignes : 40, 50 et 60 et donne un bon resultat. 

Gageons qu'il se trouvera, parmi nos Lectrices et Lecteurs, quelque genie capable de 
rendre la routine en langage machine plus performante. 



PROGRAMME DE DEMONSTRATION 



19 TEXT : PRINT CHR* (21); CHR* (12): HOME : GOSUB 168 

20 VTAB 12: PRINT "PROGRAMME EN BASIC (70 OCTETS)": PRINT : PRINT : LIST 4 
9 ,58 

38 GOSUB 150 

40 HGR : POKE 49234,0: HC0L0R= 2: HPLOT 8,0: CALL - 3082 
50 HC0L0R= 

68 FOR I = 10 TO 188: HPLOT 10,1 TO 268,1: NEXT 
70 GOSUB 150: HOME : TEXT 

88 VTAB 12: PRINT " PROGRAMME EN ASSEMBLEUR (57 OCTETS)": GOSUB 150 

90 CALL 768: GOSUB 150 
100 POKE 49235,0: PRINT : VTAB 22: PRINT "(E)NCORE M(ENU DE DISQUETTE T<E 

RMINE) " : GOSUB 150 
110 R = PEEK < - 16384) - 128: IF R = 69 THEN 18 
128 IF R = 77 THEN PRINT : PRINT CHRf (4) "RUN MENU" 
130 IF R < > 84 THEN GOSUB 150: GOTO 110 
140 TEXT : HOME : END 

150 CALL - 198: POKE - 16363,0: WAIT - 16384,128,127: POKE - 16384,0: C 
ALL - 198: RETURN 

160 POKE 768,169: POKE 769,32: POKE 770,133: POKE 771,230: POKE 772,173: PO 
KE 773,84: POKE 774,192: POKE 775,173: POKE 776,82: POKE 777,192: POKE 7 
78,173: POKE 779,87: POKE 780,192: POKE 731,173: POKE 782,80 

170 POKE 783,192: POKE 784.169: POKE 785,85: POKE 786,32: POKE 787,244: POK 
E 788,243: POKE 789,169: POKE 790,10: POKE 791,133: POKE 792.6: POKE 793 
,162: POKE 794,0: POKE 795,32: POKE 796,236: POKE 797,246: POKE 798,162 

180 POKE 799,10: POKE 800,160: POKE 801,0: POKE 802,165: POKE 803,6: POKE 8 
04,32: POKE 805,17: POKE 806,244: POKE 807,169: POKE 808,12: POKE 809,16 
2: POKE 810,1: POKE 811,164: POKE 812,6: POKE 813,32: POKE 814,58 

190 POKE 815,245: POKE 816,230: POKE 817,6: POKE 818,165: POKE 819,6: POKE 
828,281: POKE 821,181: POKE 822,288: POKE 823,238: POKE 824,96 

200 RETURN lk 
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I ROUTINE EN LANGAGE MACHINE ( ii g nes de pokes) 



EFFACER ET COLORED! HGR 



9388- 


A? 


20 




LDA 


£$20 


1 $E6 doit contenir $20 quand on trace dans la page 1 et $40 


8302- 


85 


E6 




STA 


$E6 


J pour la page 2 - octet de poids fort de $2000 ou $4000 


9394- 


AD 


54 


C0 


LDA 


$C054 


On commute la page 1 ... 


0397- 


AD 


52 


C9 


LDA 


$C052 


sans ses 4 lignes de texte... 


038A- 


AD 


57 


C0 


LDA 


$C057 


Puis le mode haute resolution... 


030D- 


AD 


50 


C9 


LDA 


$C050 


et le mode graphique. 


0310- 


A9 


55 




LDA 


£$55 


Le code du rouge est charge 


0312- 


20 


F4 


F3 


JSR 


$F3F4 


BKGND donne 6 la page courante la couleur qui est dans A. 



NE LAISSER QUE LE CADRE 



0315- 


A9 


0A 




LDA 


£$0A 


$0A est mis dans I'accumulateur et 


0317- 


85 


06 




STA 


$96 


stocke b I'adresse $6 (page zero). 


3319- 


A2 


00 




LDX 


£$00 


Registre X 6 




031 B- 


29 


EC 


F6 


JSR 


$F6EC 


Couleur fixee a 




031 E- 


A2 


9A 




LDX 


£$0A 


Partie basse abscisse 




0320- 


A8 


08 




LDY 


£$00 


Partie haute abscisse 


Debut de la ligne 


0322- 


A5 


06 




LDA 


$06 


Ordonnee (pointeur $6) _ 


0324- 


29 


1 1 


F4 


JSR 


$F411 


HPOSN positionne le curseur sans tracer 


0327- 


A9 


0C 




LDA 


£$0C 


Partie basse abscisse 




0329- 


A2 


01 




LDX 


£$01 


Partie haute abscisse 


Fin de la ligne 


032B- 


A4 


06 




LDY 


$06 


Ordonnee (pointeur $6) _ 


032D- 


20 


3A 


F5 


JSR 


$F53A 


HLIN trace la ligne ainsi delimitee 


8338 = 


Eo 


0o 




INC 


m 


Plus 1 pour le pointeur... 




0332- 


A5 


06 




LDA 


$86 


... que I on charge en memoire 


0334- 


C9 


B5 




CMP 


£$B5 


Est-il egal a $B5 ? 




0336- 


D9 


E6 




BNE 


$831 E 


Si non, encore une ligne ! 




0338- 


60 






RTS 




Retour au Basic. 






Offrez-vous les disquettes 
de programmes de 

TREMPLIN MICRO 



Au choix : DOS 3.3. ou ProDOS. 

(ProDOS ne fonctionne qu'apres avoir 
lance le systeme avec une disquette 
MASTER). 



Utilisez le bulletin de commande de la 
page 62... ou recopiez-le. 



TREMPLIN MICRO 
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Votre bibliotheque 
INFORMATIQUE 

I La Micro en WO questions (Cedic/Nathan) 

J'ignore si le guide realise par Bruno de Latour saura repon- 
dre aux questions que vous vous posez encore sur la micro- 
informatique, sujet d'actualite s'il en est. 

Sur Apple, sans doute n'apprendrez-vous rien que vous ne 
sachiez dsja. Et d'ailleurs, que vous importe le passe de Ste- 
phen G. Wozniak ou celui de Steeve Jobs... puisque le pre- 
mier s'est remercie lui-meme, tandis que le second se 
voyait detrone par John Sculley ? Vous vous en fichez roya- 
lement, et davantage encore du fait que, en juin 1983 (quel 
jour... et a quelle heure ?), Madame Thatcher autorisait 
Mister Sinclair a devenir Sir Clive ! 

C'est pourtant cela, La Micro en 100 questions, mais aussi 
la reponse a "comment mesure-t-on la memoire ?", "Com- 
ment reconnoitre un bon clavier ?" ou "Qu'est-ce qu'un 
logiciel integre ?". 

Le choix des questions pourra vous paraltre aga<;ant, 
oriente, original ou judicieux. II est certain que la reponse a 
certaines d'entre elles vous laissera sur votre soif de savoir, 
tandis que d'autres apaiseront votre insatiable curiosite. 
Personnellemenf , pour le meme prix, j'aurais souhaite 500 
questions... et autant de reponses, mais peut-etre suis-je 
trop gourmand ? 



par Clement RENARD 



LA MICRO 

EN 100 QUESTIONS 



CW'I t»*l 

micro 
monde 




r wi * -rx t^i 



APPLE II C 



GUIDE PRATIQUE 
DE L APPLE II C 

B'uno de Lalour 




cedlc/nathan 



I Guide pratique de I' Apple He (Cedic/Nathan) 

Si aucune documentation n'etait fournie avec I'Apple He, 
il est sur que ce recueil (compilation des Guide Apple, 
mais avec le style — clair et direct — de Bruno de Latour) 
se revelerait utile, voire indispensable. 

Toutefois, sachant qu'une documentation, fut-elle aussi 
bien presentee que celle du He, n'est jamais lue avec une 
reelle attention, il est evident que le Guide pratique de 
I'Apple lie pourra seduire certains possesseurs de cette 

mnrkino I 'onnni rloct ni to nnc nine nno | r\ Hnr Ann o j| 

machine. L ennui, c est que, pas plus que la doc Apple, II 
ne parle pas ! II faudra done prendre la peine (et le 
temps) d'en parcourir les 139 pages (tres illustrees et non 
moins lisibles). 

On saura alors copier et formater une disquette, copier 
les fichiers, etc. sous ProDOS, bien entendu. On lira 
aussi, non sans interet, les differences existant entre Pro- 
DOS et DOS 3.3. 

Bref : une introduction (qui n a d'ailleurs pas la pretention 
d'etre autre chose) au portable d'Apple, a ses peripheri- 
ques et d ses logiciels. 

C.R 
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GUY-HACHETTE 




GRAPHISME 



POKE 230,32 permet de 
tracer dans la page 1 

HPIOT 0.0 : CALL - 3082 

efface la pag§ 1 (si HC0= 

LOR = 0, bien sur) 



HGR initialise la 
(deja "nettoyee" 
ligne precedente) 



page 1 ( 
par la 



POKE 49234,0 supprime les 
4 lignes de texte de la 
page 1 



On utilise ici la meme 
methode que pour le trace 
du cercle (voir Tremplin 
Micro n°3, page 47). 



POKE 49235,0 retablit les 4 
lignes de texte. 

ESCAPE permet de visuali- 
ser la totalite de lo page 1 



Vous comprendrez facile- 
ment les autres comman- 
des en tapant votre pro- 
gramme, puis en I'es- 
sayant. 

Peut-etre constituera-t-il la 
base d'un jeu ? 



DESSINE-MOI PES ETOILES 

(n] E programme n'a pas la pretention de tracer toutes les 
n etoiles possibles et imaginables, mais il vous presente 
^ une methode a la fois simple et efficace. Essayez plutot ! 



10 TEXT : PRINT CHR$(12); CHR$(21) : HOME 

20 HCOLOR = : HPLOT 0,0 : POKE 230,32 : CALL - 3082 

30 HGR 

40 PRINT : VTAB 22 : PRINT : CALL - 868 : INPUT "RAYON DE L'ETOILE = " ; R$ : IF 

VAL(R$) > 96 AND VAL(R$) < 1 2 THEN R = VAL(R$) 
50 tF R = THEN 310 

60 L$ = "CENTRE DE L'* (" + STR$(G + R) + "-" + STR$(279 - R) + "," + STR$(0 
+ R) + "— " + STR$(191 — R) + ") = " 

70 VTAB 21 : CALL - 958 : PRINT L$; : INPUT ""; XC$,YCS : REM CTRL - 7 ENTRE "" 

80 IF XC$ <> "" THEN XC = VAL (XC$) 

90 IF XC = THEN XC = R 
1 00 IF YC$ < > "" THEN YC = VAL(YC$) 
110 IF YC = THEN YC = R 

120 IF XC < + R OR XC> 279 - R OR YC < + R OR YC> 191 - R THEN CALL - 198 
: GOTO 60 

130 PRINT: VTAB 21 : PRINT L$;XC;",";YC : CALL — 868 
140 POKE 49234,0 

150 S = 5: PI = 3.1415926 : PB = PI* 2 : CE = PB/S 
160 HCOLOR =3:V = 

COORDONNEES DCS POINTES 



170 FOR A = TO PB STEP CE 
180 B = A — .313 

190 V = V + 1 :H(V) = R* COS(B) + XC : V(V) = R* SIN(B) + YC 
200 NEXT 

TRACE PROPREMENT DIT 



210 HPLOT H(1),V(1) TO H(3),V(3) TO H(5),V(5) TO H(2),V(2) TO H(4),V(4) TO H(1),V(1) 

220 POKE 49235,0 

230 VTAB 22 : PRINT : CALL - 958 : CALL - 198 : PRINT "(E) FFACER (C)OMPLETER 

(D)OUBLE (A)UTRE "; : GET R$ : POKE - 1 6368,0 

240 IF R$ = CHR$(27) THEN POKE 49234,0 : GOSUB 300 : GOTO 220 

250 IF R$ = "E" THEN CALL - 3086 : REM EFFACER 

260 IFR$ = "C" THEN 40 

270 IF R$ = "D" THEN XC = XC + 3 : YC = YC + 2 : GOTO 120 

280 IFR$ = "A" THEN 310 

290 GOTO 230 

300 CALL - 198 : POKE - 16368,0 : WAIT - 16384,128,127 : POKE — 16368,0 : RETURN 

310 VTAB 22 : PRINT : CALL - 958 : PRINT "(F)IN (M)ENU DISQUETTE (S)AVE PAGE1 -» 

"; : GET R$ : POKE - 16368,0 

320 IF R$ = CHR$(27) THEN POKE 49234,0 : GOSUB 300 : GOTO 220 

330 IF R$ = "M" THEN PRINT : PRINT CHR$(4) "RUN MENU" 

340 IF R$ = "S" THEN PRINT : PRINT CHR$(4) "BSAVE ETO, A$2000, LS2000" 

350 HOME : IF R$ = "F" THEN TEXT: END 

360 GOTO 230 



TREMPLIN MICRO 
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r 

ETOILE ET CADRE LANGAGE MACHINE 



ES quelques lignes qui suivent vous montreront, mieux que de longues explications, com- 
ment dessiner (instantanement) une etoile dont on connatt les parametres, et comment tra- 

^ cer un cadre. Rappelons que TAX passe la valeur de I'Accumulateur dans le registre X et 
que TAY joue le meme role, mais au profit du registre Y. La valeur de A n'est pas modifiee. 

A noter que le contenu de A n'est pas davantage modifie par I'execution de HLIN et HFIND. 



ETOILE 



300 


20 


E2 


F3 


JSR 


$F3E2 


Fait passer en mode HGR 


303 


A2 


03 




LDX 


£$03 


Pour fixer la couleur (bl 


anc) 


305 


20 


EC 


F6 


JSR 


$F6EC 


SETHCOL met la couleur a la valeur X 


308 


A2 


AF 




LDX 


£$AF 


Partie basse abscisse 




30A 


AO 


00 




LDY 


£$00 


Partie haute abscisse 


HPLOT 175.62 


30C 


A9 


3E 




LDA 


£$3E 


Ordonnee du point 




30 E 


20 


57 


F4 


JSR 


$F457 


HPLOT positionne le curseur et trace le point 


31 1 


A9 


25 




LDA 


£$25 


Partie basse abscisse 




313 


A2 


00 




LDX 


£$00 


Partie haute abscisse 


HPLOT 37,162 


315 


AO 


A2 




LDY 


£$A2 


Ordonnee du point 




317 


20 


3B 


03 


JSR 


$033B 


Saut pour le trace 




O 1 /A 


AO 


5A 








Partie basse abscisse 




31C 


A2 


00 




LDX 


£$00 


Partie haute abscisse 


HPLOT 90.6 


91 c 


.a. a 


Of, 




LDV 


cea*. 






320 


20 


3B 


03 


JSR 


$033B 


Saut pour le trace 




323 


A9 


8E 




LDA 


£$8E 


Partie basse abscisse 




o o c 
325 




00 




LDX 


£$00 


Partie haute abscisse 


HPLOT 142.162 


327 


AO 


A2 




LDY 


£$A2 


Ordonnee du point 




329 


20 


3B 


03 


JSR 


ft ft H 

$033B 


Saut pour le trace 




32C 


AV 


04 




LDA 


£$04 


Partie basse abscisse 




o o c 




00 




LDX 


£$00 


Partie haute abscisse 


HPLOT 4.62 


J JU 




3E 




LDY 


£$3c 


Ordonnee du point 




332 


20 


3B 


03 


JSR 


r~ (~i si t~\ 
$033B 


Saut pour le trace 




335 


A9 


AF 




LDA 


£$AF 


Partie basse abscisse — 




337 


A O 

A2 


00 




LDX 


£$00 


Parte haute abscisse 


HPLOT 175.62 


339 


AO 


3E 




LDY 


£$3E 


Ordonnee du point 




33B 


20 


3A 


F5 


JSR 


$F53A 


HLIN trace la ligne 


TRACE HPLOT 


33E 


20 


CB 


F5 


JSR 


$F5CB 


HFIND reinitialise _ 


341 


60 






RTS 












— CADRE 






PROGRAMME DEMO PACE SUIVANTE 














342 


A9 


00 




LDA 


£$00 


Partie basse abscisse — 




344 


AA 






TAX 




Partie haute abscisse 


HPLOT 0,0 


345 


A8 






TAY 




Ordonnee du point 




346 


20 


57 


F4 


JSR 


$F457 


HPLOT positionne le curseur et trace le point 


349 


: A9 


17 




LDA 


£$17 


Partie haute abscisse 


HPLOT 279.0 
279 = $117 


34B 


: A2 


01 




LDX 


£$01 


Partie basse abscisse 


34D 


: AO 


00 




LDY 


£$00 


Ordonnee du point 


34F 


: 20 


3B 


03 


JSR 


$033B 


Saul pour le trace 




352 


: A2 


01 




LDX 


£$01 


Partie basse abscisse — 


HPLOT 279,191 


354 


: AO 


BF 




LDY 


£$BF 


Ordonnee du point _ 


(A n'a pas varie) 


356 


: 20 


3B 


03 


JSR 


S033B 


Saut pour le trace 




359 


: A9 


00 




LDA 


£$00 


Partie haute abscisse — 




35B 


: AA 






TAX 




Partie basse abscisse 


HPLOT 0,191 


35C 


: AO 


BF 




LDY 


£$BF 


Ordonnee du point 




35E 


: 20 


3B 


03 


JSR 


$033B 


Saut pour le trace 




361 


: AA 






TAX 




Partie basse abscisse — 


HPLOT 0,0 


362 


: A8 






TAY 




Partie haute abscisse _ 


(A n'a pas varie) 


363 


: 4C 


3B 


03 


JMP 


S033B 


Dernier saut pour le trace 



50 GUY-HACHETTE 



PROGRAMME DE DEMONSTRATION (etoile et cadre) 

19 TEXT : PRINT CHR$ (12') J CHR* (21): HOME 

20 HC0L0R= 8: HPLOT 0,8: POKE 230,32: CALL - 3082 

30 PRINT "DEMONSTRATION AVEC ROUTINE LM 



40 PRINT : PRINT : PRINT "67 OCTETS 1 CADRE) & 35 OCTETS < CADRE) " 

50 PRINT CHRt- < 4 ) " 6L0AD ETOILE. LM" 

69 MTAB 22: PRINT "ENFONCEZ UNE TOUCHE ";: GET Ri 

70 CALL 768 

88 POKE 49234,8: REM 3UPPRIME LES 4 LI ONES DE TEXTE 

90 CALL -198: GET R$ 

180 POKE 49235,0: REM PETABL IT LE TEXTE 

118 HOME : VTAB 22: PRINT "MEME ROUTINE A'JEC CADRE LAN GAGE MACHINE" 

120 CALL 768: POKE 49234,8: CALL 834:S = S + 1: IF S = 1 THEN FOR 1 = 1 T 

2000: NEXT 

138 IF S < 12 THEN 120 

148 POKE 49235,0 

159 HOME : UTAB 22: PRINT 11 (M)ENU DE DISQUETTE (E)TOILE BASIC <F) IN" 

160 POKE - 16368,0: WAIT - 16384,128,127: POKE - 16368,0 

170 R = PEEK - 16334): IF R = 77 THEN PRINT : PRINT CHR* <4)"RUN MENU" 

180 IF R = 69 THEN PRINT : PRINT CHR* MV'RUN ETOILE" 

190 IF R = 70 THEN TEXT : HOME : END 

208 GOTO 168 ■ 



INITIATION 



Langage machine 



I 



DEPLACEMENT et COMPARAISON 

DES ZONES DE MEMOIRE 

Comment deplacer la zone ($30(7.350 en $800,850) ? 



Remarque importante : on ne deplace pas une zone de la memoire, mais on la RECOPIE. 
De plus, I'adresse du debut de destination ne doit pas etre comprise entre les deux 
adresses (debut et fin) de la zone a recopier.. 

Passez d'abord en mode moniteur par un CALL — 151 (suivi de RETURN). Ensuite, tapez 
* 800 < 300.350M (puis RETURN) M = MOVE (routine qui se charge de tout). 



• Comment verifier que les zones $300,350 et $800,850 sont identiques ? 

Meme procedure que precedemment, mais en faisant appel a la routine VERIFY : 

* 800 < 300.350V (puis RETURN) 

Si la comparaison est exacte, I'asterisque va s'afficher a la ligne suivante. Dans le cas 
contraire, VERIFY va afficher (n'est-ce pas merveilleux ?) : 

1 . L'adresse de la zone-source ou existe une difference 

2. La valeur hexadecimale ecrite a cette adresse 

3. La valeur hexadecimale lue 6 I'adresse correspondante, dans la zone a verifier 
(zone de destination). 

•nmmiuinunnimimimimnnniiMiiMiniHHninumnnimnHmimniufimifin 
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UTILITAIRE ff!5M 



Avec carte 80 colonnes 



RAM.COPIE 



Ou comment transferer vos 
programmes-disquette sur/RAM. 



UAND vous utilisez ProDOS (Professional Disk Operating System), vous disposez d'un dis- 
que virtuel de 61 K (memoire de la carte 80 colonnes). Si vous demandez a votre utilitaire 
Systeme de vous afficher la liste des volumes, il vous signalera que /RAM est dans le lec- 
teur 2, slot (ou port) 3. 

Nous avons deja vu qu'il est tres facile d'acceder a ce volume, soit par PREFIX/RAM, soit par 
CATALOG/ RAM. Si Ton a un programme en memoire, il est non moins facile de le sauvegarder 
sur /RAM par SAVE/RAM/NOMPROGRAMME. 

Bien entendu, il est possible de creer un ou plusieurs sous-catalogues (DIR) sur /RAM. C'est ce 
que vous permet, entre autres, notre RAM.COPIE. 

Limitation : RAM.COPIE ne transfere que des fichiers precedes de la mention BAS. Son uti- 
lite est done restreinte, mais cette routine a le merite de montrer comment lire 
un DIRECTORY, et aussi comment tirer profit de commandes EXEC. 

Pour transferer n'importe quel fichier sur /RAM, il est evidemment recommande d'utiliser I'utili- 
taire de copie fourni avec ProDOS. 

Dans un cas comme dans I'autre, on n'oubliera pas que le contenu du disque virtuel serait imme- 
diatement perdu si une intempestive coupure de courant survenait... 



10 
29 
39 
40 

50 

69 
70 
30 
90 

1 00 
110 

120 
130 
140 
150 
140 

170 
180 
190 

200 

210 
220 
230 



VOTRE PROGRAMME 

TEXT : HOME :D* = CHR* C4) i PRINT D$"PR£3" 
DIM PR* < 581 

FOR I = 1 TO 28;T* = T* + " " : NEXT 

PRINT T*:TI$ = "COPIE D'UNE DI SQUETTE SUP LE DISQL 

E VIRTUEL /RAM" 

VTAB 3: PRINT TI*: PRINT T* 
TR* = " / RAM/ PRO 6/ " : ST* = " STARTUP . RAM " 
BD = 118: REM NOMBRE DE BLOCS DISPONIBLES 
PP = 50: REM MAXIMUM DE PROGRAMMES SUR /RAM 

REM *********************************** 

REM ** PREFIX DE LA DI SQUETTE *» 

REM I********************************** 



PRINT Dt" PREFIX" 
INPUT P$: GOSUB 160: GOTO 220 
UTAB 3: POKE 1403,80 - LEN <P*) 
P$! NORMAL : POKE 34,5: RETURN 



INVEPSE : PRINT 



REM *********************************** 

REM ** CATALOGUE DE D I SQUETTE ** 

REM *********************************** 

PRINT D*" CATALOG" 



Vous pourrez certes copier 
50 fichiers Basic, mais 
dans la Iimite des 118 
blocs disponibles. 



a Pourquoi GOSUB 160 ? 

Simplement parce que 
la ligne 160 est reutilisee 
un peu plus loin (290), ce 
qui evite une repetition. 



52 



GUY-HACHETTE 



Quand on parle de dis- 
quette entiere, se sou- ^ 
venir que cet utilitaire * 
ne copie que des fichiers 
Basic precedes de la men- 
tion BAS. 



Ll$ = Titre du catalogue. 

L2$ = Ligne des titres du 

catalogue. 
L3$ = Ligne blanche. 
L4$ = Fichier. 



La variable PR$(P) va w 
contenir les titres des ' 
fichiers a effacer de /RAM 
(P etant leur nombre). 



S il existe un STARTUP. .V 
RAM, on en prend 

note. 



240 
256 
260 
270 
289 

290 
306 
310 
326 
330 
346 
350 
368 
376 

386 
398 
488 
418 

428 
438 
440 
458 
448 
470 
438 
498 
586 
518 
528 
538 
535 
548 
556 

568 
578 
588 

598 
688 

618 
628 
636 
648 
656 
668 

676 



REM »«****♦*»**♦************»#«******** 

REM ** Dl SQUETTE ENTIERE OU DIR ** 
REM ********************* + + + + * + *** + ■.* + * 

VTAB 24: POKE 1483,0: INPUT "PRECISER LE TITRE DU 
SOUS-CATALOG (DIR) EVENT UEL " ;TI* 

IF TI* < > "" THEN P* = P* + TI* + "/" : GOSUB 160 



REM **-*****♦*>**♦«♦♦*♦«#»*****»*«*»**«* 

REM «* CONTROLS DE /RAM ** 

REM + 

HOME 

ONERR GOTO 450 

PRINT D*"0PEN"TR* n ,TD1R" : PRINT D*" READ"TR* : INPUT 

LI*: INPUT L2$: INPUT L3* 
INVERSE : PRINT LI*: NORMAL 
PRINT L2*: PRINT L3* 
INPUT L4*: IF L4* = "" THEN 420 
P = P + 1:PR$<P) = MID* <L4*,2,15): PRINT PR*(P): 
GOTO 468 

PRINT D*"CL0SE"TR* 

FOR I = 1 TO P: PRINT D*" DELETE "TR* ; PR*< I > : NEXT 
GOTO 520 

POKE 216,0: CALL - 3288 

PRINT D* "CREATE"TR* : PRINT D* " CATALOG "TR* 

REM *»****•****♦»***»**»***■<***■.•.♦♦♦■»*♦■» 

REM »« LECTURE CATALOGUE A COPIER ** 
REM ************************************ 

P = 0: REM NOMBRE DE PROGRAMMES A COPIER 
BL = 0: REM NOMBRE DE BLOCS 
PRINT D*" OPEN" P*" ,TDI R" 

PRINT D*"READ" P* : INPUT LI*: INPUT L2*: INPUT L3* 
INPUT L4*: IF L4* = "" THEN 656 

IF MID* <L4*,18,3> < > "BAS" THEN 558 
P = P + 1 : I F P > PR THEN 656 

BL = BL + UAL < MID* <L4*,23,6>>: IF BL > BD THEN 
658 

TI* = MID* (L4*,2,15) 
FOR Z = 15 TO 1 STEP - 1 : IF MID* «'TI*,Z,1) < > 

" " THEN 626 
NEXT 

PR*(P) = LEFT* <TI*,Z) 
IF PR*(P.) = ST* THEN ST = 1 
GOTO 558 

PRINT D*" CLOSE" P* 

HOME : VTAB 13: PRINT "II y a ";: INVERSE : PRINT 
P;: NORMAL : PRINT " programmes a copier sur "TR* 

SUITE ET FIM PAGE 54 
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RAM.COPIE (Suite et fin) 


688 


REM **«#**»*»»»******»»*****»* 




690 


REM ** CREATION DU FI CHI ER EXEC ** 




700 


REM »*«*XftX«*ft*X**X******X**X***X**X*** 




710 






728 


PRINT : PRINT "Creation du fichier EXEC" 




730 


Et = "EX" 




740 


PRINT Dt" OPEN" E* : PRINT Di" CLOSE" E* : PRINT 


Di" DELE 




TE" Ei : PRINT Df" OPEN" E$ : PRINT Df'WRITE" E* 




750 


FOR I = 1 TO P: PRINT " LOAD" Pi ; PR$< I > : PRINT " SAVE 




" ;TR*;PR*U '> : NEXT 




768 


PRINT " HOME" : PRINT "CATALOG/RAM/PROG" 




776 


IF ST = 1 THEN PRINT " -"TR* ; ST* 




788 


PRINT 




790 


PRINT Df" CLOSE" 




300 






818 


REM *********************************** 




820 


REM COP IE DES PROGRAMMES SUR /RAM ** 




330 


REM ************************~ r ** ****** 




840 






350 


PRINT : PRINT "La copie des programmes est 


en cour 




s" : PRINT 




868 


PRINT D*"EX.EC"ES 


■ 



S'il existe un STAR- 
TUP. RAM (a vous de le 
creer !), il est lance par 
I'instruction de ligne 770. 



EXEC se charge de 



tout... 



I 



ERRATA 

TREMPLIN MICRO N°3 




Du Dos 3.3 
d ProDOS 



**** § 

>U>V«M L - ^ 




///// 



Sur : les programmes sont soigneusement revus et essayes (sur 
Apple lie et Apple He, aussi bien avec DOS que ProDOS). 
Certain : notre distinguee correctrice fait tout ce qu'elle peut pour 
ne rien laisser passer... mais il y a les imponderables ! Bref, 
veuillez corriger les oublis ou erreurs qui suivent : 

ECRANS.LM (page 6) : A la fin de la ligne 38D, supprimer RTS. 

ECRANS.BAS (page 9) : Le GOSUB 1580 de la ligne 1090 est super- 
flu (double emploi avec celui de la ligne 1100). Ces deux correc- 
tions ne troublent pas le fonctionnement du programme. Par con- 
tre, si vous possedez un Apple He, modifiez les lignes 180 et 190 
de la page 1 1 (en bas et a droite). 
180 IFH< 0...etl90 IF H > 73... 

CRYPTOTEXTE (page 14) : Les valeurs ASCI indiquees d partir de 
31 D sont inexactes (CI C5, etc.). Lire : 4F 41 55 45 49 41 45 49 4F et 
55. Ces codes sont poques a partir du Basic et cette modification 
est done sans influence sur le fonctionnement du programme. 

BOUTABOUT (page 30) : En 319, il faut ecrire E9 03 (au lieu de E9 
02). De plus avant de reunir deux sections d'un programme, sup- 
primer eventuellement une ligne LOMEM ou HIMEM. 

ECRAN.LM (page 37) : II manque un 60 a la fin de la derniere 
ligne. Le resultat doit etre 6796 et non 6955, nombre invente par 
un mauvais plaisant. 

Nous avions besoin de vacances ! 
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Vous avez ecrit 

a TREMPLIN MICRO 




• Lecteur assidu de votre revue TREMPLIN MICRO, 

je me passionne pour I'informatique, comme beau- 
coup de jeunes actuellement. Je possede un Apple 
He et je viens de terminer un programme de dessin 
en basic. J'ai toutefois quelques questions a vous 
poser : est-il possible de souvegarder un dessin sur 
disquette, et si oui comment ? Peut-on sortir celui- 
ci sur une imprimante IMAGEWRITER ? 
D'autre part, pourriez-vous m'envoyer tous les 
PEEKS, POKES et CHR$ ainsi que leur signification, 
car ils ne sont repertories dans aucun de mes 
manuels et j'en aurais grandement besoin pour mes 
futurs programmes. Je vous en remercie d'avance... 
Veuillez agreer, cher Monsieur, I'expression de mes 
sentiments distingues. 

Piern L. (59810 IESQUIN) 

|yjyj Je suis surpris de votre premiere question. 
Comment pouvez-vous programmer en Basic 
sans savoir sauvegarder un dessin sur dis- 
quette ? 

II suffit de taper, en direct, un BSAVE IMAGE, 
A$2000, L$1FF8 pour transferer votre dessin 
sur disquette (33 secteurs, sous le titre IMA- 
GE, bien sur). Pour la page 2, remplacez 
A$2000 (8192) par A$4000 (16384). 
Nous avons publie, dans le courrier du n°3 de 
Tremplin Micro, une petite routine permet- 
tant d'imprimer un dessin sur IMAGEWRITER, 
a partir de la routine PICDMP d'Apple (dis- 
quette TOOLKIT). 

Si vous disposez d une version plus recente de 
cet utilitaire, commencez par abreger le pro- 
gramme binaire GF, comme indique ci-apres, 
puis inspirez-vous de notre listing pour utiliser 
IW1. 

10 PRINT CHR$(4) "BLOAD GF" : PRINT 
CHR$(4) "BSAVE IW1 , A36864, L601" 

11 END 

12 REM Hsuffiraensuited'utiliserlWl 
15 PRINT CHR$(4) "BLOAD IW1" 

20 REM POUR X=0, impression NORMALE 
(blanc sur fond noir) 

21 REM POUR X= 1, impression INVERSE 
(noir sur fond blanc) 



22 REM POUR X = 2, impression DOUBLE 
NORMALE 

23 REM POUR X = 3, impression DOUBLE 
INVERSE 

24 X = ! : REM X = X + 4 pour HGR2 
30 POKE 6,1 : POKE 7, X 

40 CALL 36864 : REM IMPRESSION DE LA PA- 
GE 1 

Quant aux PEEKS et POKES, continuez de lire 
Tremplin Micro ! 



• Pouvez-vous me faire connaitre comment rendre 
compatible un APPLE He et une imprimante a 
matrice de points par impact, Thomson PR. 90. 080, 
fabriquee par SEIKOSHA. 

Le He etant equipe d'un port SERIE, j'ai du faire I'ac- 
quisition d'une interface parallele et malgre cela, 
tout ne se passe pas comme on pourrait I'esperer. 
En utilisant le programme "APPLE WORKS" par 
exemple, je suis arrive, en configurant I'impri- 
mante, a obtenir une frappe normale en ce qui con- 
cerne les majuscules et les minuscules. Par contre, 
il ne m'a ete possible d'obtenir : ni les caracteres 
accentues, ni le mode graphique, ni le mode carac- 
teres double largeur. 

Dans un programme Basic /'impression d'une page 
ecran ressemble a une serie de "hieroglyphes" sans 
aucune signification. 

TREMPLIN MICRO, (ou I'un de ses Lecteurs), pourrait 
surement me sortir de cette impasse. 
D'avance merci. 

J. COLATREUA (64600 ANGLE!) . 
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C'est un S.O.S., mais je suis presque sur que 
I'un de nos Lecteurs (ou I'une de nos Lectrices) 
a dejd resolu ce probleme... 



• Hormis le fait que votre revue m'enthousiasme de 
AaZ, car elle est simple a comprendre, et ne s'inte- 
resse qu'aux Apple, j'ai deux questions a vous 
poser : 

1. J'ai appris dans votre n°l comment transfor- 
mer son curseur en tiret dignotant, ou par 

SUITE DU COURRIER (PAGE 56) 
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Vous avez ecrit 

a TREMPLIN MICRO 




2. 



n'importe quoi d'autre par un poke 2043, X. 
Mais comment faire pour le transformer en un 
veritable curseur tiret clignotant ? (Avec 
DELETE pour effacer, avec insertion, etc.). 
Oil trouver une liste complete de tous les 
POKES faciles et utiles ? 
Merci d'avance pour vos avis eclaires. 

Remi MICHEL (13114 PUYLOUBIER) 

Essayez le micro-programme ci-apres. Vous 
pourrez l appeler par BRUN CURSEUR (ou 
BLOAD CURSEUR, puis CALL 768). Vous cons- 
taterez que, si ca n'insere pas, ca clignote... 
et c'est bien un tiret ! Gageons que vous 
aurez d cceur de le developper pour en faire 
une routine plus complete ! 



TM 



300 
308 
310 
318 
320 
328 
330 



A9 

4C 

A9 

00 

10 

08 

DO 



0B 
EA 
DF 
CO 
CO 
20 
F5 



85 

03 

91 

10 

48 

A8 

68 



38 

91 

28 

Fl 

8A 

FC 

AA 



A9 

28 

68 

AD 

48 

AD 

68 



03 

Bl 

91 

00 

A2 

30 

60 



85 
28 
28 
CO 
20 
CO 



39 
48 
2C 
2C 
A9 
CA 



* BSAVE CURSEUR, A$300, L$36 

On trouve, dans la collection du PSI, eparpil- 
les dans les ouvrages consacres a I'Apple, bon 
nombre de PEEKS et de POKES. Tremplin Micro 
vous rappelle les adresses de quelques-uns 
dans chacun de ses numeros. 



• Avant toute chose, bravo pour voire revue qui est 
une veritable mine de renseignements pratiques 
dans laquelle il fait bon puiser. Malheureusement, 
j'ai un probleme et ici, a Nice, personne n'a pu me 
renseigner ! Void de quoi il s'agit : 
Je possede un Apple II europlus + carte langage 
avec une imprimante OKI data microline 82 A + 
carte graphique. Des logiciels tels que Zoom Gra- 
phic fonctionnent parfaitement ainsi que Koala. 
L'impression graphique est irreprochable, par con- 
tre, d'autres tels que The Print Shop, Graphor Cas- 
tor, ne sortent pas en graphique simplement parce 
que dans le choix de /'option pour /'imprimante I'OKI 
n'apparait pas. 

Ma question : pouvez-vous me fournir le listing des 
caracteres de controls a inclure dans le programme 
ou le listing d'appel de sous-programmes en lan- 
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gage machine faisant le transcodage (les pokes) de 
maniere a ce que je puisse transformer certains de 
mes programmes ? 

Vous remerciant vivement par avance de votre col- 
laboration, je vous souhaite longue vie et beaucoup 
de numeros de Tremplin Micro et surtout, si vous le 
pouvez, du concret, pas de pub. Sincerement votre. 

Jacques P. (06000 NICE) 

Un autre S.O.S. (nous en avons recu plusieurs 
concernant la meme imprimante). Quand on 
n'utilise pas une configuration Apple com- 
plete, cela devient horriblement complexe. 
Qui connaTt la reponse ? 
Merci pour notre Lecteur ! 

• Je dispose de I'imprimante LX-80 (EPSON) avec 
son interface serie/parallele pour les graphiques, 
mais je ne trouve pas dans T.M. et (ou) ses disquet- 
tes comment executer de la copie d'ecran, de des- 
sins ou autres a partir de mon APPLE He. 

Je vous serais tres reconnaissant si vous pouviez 
m 'aider. 

Claude P. (84300 CAVAILLON)... 

et plusieurs autres lettres ollant dans le memo sens. 

Nous avons pose la question a I'importateur, 
et celui-ci nous a promis de mettre ce pro- 
bleme a l etude. II est souhaitable que la mar- 
que EPSON fournisse un logiciel capable de 
permettre, sur I'Apple lie, une bonne copie 
des pages graphiques. Ou alors... adieu la 
compatibility ! 

• Je voudrais que tu m'envoies personnellement la 
liste des effets de chaque PEEK, POKE, CALL, CHR$ 
et que tu m'expliques comment composer soi-meme 
de la musique avec la routine FAITSON.LM (du n°3) 
parce que, quand j'essaie de modifier les chiffres, 
cela ne marche pas. 

Olivier B. (06200 NICE) 

La routine Faitson (parue dans notre n°3) 
n'avait pas la pretention de t'aider a composer 
de la musique. Tu vas trouver, dans le present 
numero de Tremplin Micro, des programme* 
qui vont te combler d'aise ! 

• Mes chiffres mini et maxi de clientele sortent des 
bornes fixees par le programme Histogramme (n°l 
de T.M.). Comment modifier ces bornes ? 

Jean A. (31390 CARBONNE) 

Exemple, avec le rapport 1/20 : 
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780 M = A/20 190 Y = 1 40 — B * (A/2) 
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Vous avez ecrit 

a TREMPLIN MICRO 




• Je commencerai cefte lettre par des felicitations 
pour cette revue attrayante qui propose des pro- 
grammes interessants (c'est rare I), fonctionnant 
du premier coup. Personnellement, je possdde un 
Apple He et m'interesse beaucoup au langage 
machine et au fonctionnement general de celui-ci. 
Malheureusement, la documentation, surtout fran- 
caise, est rare et chere quand elle existe. Et, comme 
vous I'avez dit dans T.M. n°3, Apple France nous 
ignore ou se fout de nous. C'est pourquoi c'est a 
vous que je m'adresse maintenant en esperant plus 
de comprehension. En effet, je desirerais connaftre 
/'emplacement en memoire des systemes d'exploi- 
tation DOS 3.3. et ProDOS ainsi que, si possible, 
leurs routines (surtout /'equivalent en ProDOS du 
RWTS du DOS 3.3.). Je voudrais aussi pouvoir utili- 
ser les fonctions DRAW et XDRAW a partir du lan- 
gage machine. Quelles memoires sont utilisees 
pour initialiser une forme ? Pourriez-vous aussi 
indiquer dans la revue de petites routines simples 
avec des commentaires (beaucoup) pour /'utilisation 
efficace et facile de la memoire auxiliaire de nom- 
breux Apple. J'aimerais aussi savoir ce qui se 
passe, en detail, lors de la mise sous tension de 
I'ordinateur et comment il charge les systemes 
d'exploitation. 
Avec mes remerciements. 

Juan-Luc M. (54600 VILLERSLES-NANCY). 

Je publie integralement votre lettre parce 
qu elle en resume des dizaines d'autres. II n'est 
evidemment pas possible de satisfaire immedia- 
tement toutes vos curiosites, non pas pour "faire 
durer le plaisir" (comme le pretend I'un de nos 
correspondents), mais parce que les reponses 
exigent de nombreuses et longues explications. 
Le DOS 3.3. occupe I'espace-memoire qui va de 
$9600 a $BFFF ou, si vous preferez, de 38400 a 
49151 (10752 octets). 

ProDOS est beaucoup plus gourmand puisqu'il 
utilise aussi la carte langage (AAEV1). 
La lecture des catalogues est relativement sim- 
ple sous ProDOS (voir le programme COPIE.RAM 
de ce numero). 

Nous aborderons progressivement toutes les 
questions que vous evoquez dans Tremplin 
Micro. 

Nous avons deja indique (n°3) comment utiliser 
la memoire auxiliaire et la carte langage. 
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• A /'attention de Nestor : 

J'ai un Apple He + Duodisk + monitor monochrome 
+ Imagewriter. Depuis un an, je bosse dur. Com- 
ment sauver sur disque ce qui apparait a I'ecran 
resultant d'un programme du style : 

10 A$ = "BIBI" 
20 B$ = "HELLO" 
30 C$ = "ALORS" 
100 INPUT X 

I/O IFX = I THEN PRINT A$ 
120 IFX = 2 THEN PRINT B$ 
130 IFX = 3 THEN PRINT C$ 
140 IFX = THEN 200 
150 GOTO 100 
200 PRINT "OK" 
210 END 

Je lance le programme par un 
RUN et je reponds aux INPUT 
par : 1/1/1 2/2 1/1/0. 
II apparait a I'ecran (enfin a peu 
pres) ceci : voir le schema ci- 
contre. Admettons que ce resul- 
tat me plaise, et que je veuille 
le sauvegarder sur disquette, 
comment faire ? 

Alain B. (33B80 CAMBES) 

Ou bien vous desirez sauver I'ecran tel qu'il 
est... ce qui exige un BSAVE ECRAN, A1024, 
L1016 (on le rappelle par BLOAD ECRAN). 
Bien sur, dans le corps d'un programme, les 
commandes doivent etre precedees par un 
PRINT CHR$(4) : (exemple : PRINT CHR$(4); 
"BSAVE ECRAN, A1024.L1016"). 
Ou bien vous desirez memoriser vos reponses 
et il est indispensable de passer par une 
variable... et un fichier, mais c'est une autre 
histoire. nestor 

• Comment acceder directement a un mot, dans une 
ligne de DATA, sans etre oblige de passer par RES- 
TORE... et une lecture complete ? 

AnfolneL. (16000 ANGOULEME) 

L'exemple ci-apres ne pretend pas resoudre 
votre probleme, mais vous montre comment 
sont memorisees vos donnees, et comment il 
est possible d'y acceder directement... quand 
on en connalt le numero d'ordre, bien sur. 

10 TEXT: HOME 

20 DATA TOTO, TATA, LIU, DADA 
25 DATA LULU, ZOZO, ERNEST, FIN 
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30 FOR I = 1 TO 8 



(Suite page 58) 
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35 PRINT I "—»"; 

40 AD(I) = PEEK (125) + PEEK (126) * 256 : 

PRINT AD(I) ; " " ; 
50 READA$ : PRINT A$ ; "— LIGNE " ; 
60 PRINT PEEK (123) + PEEK (124)* 256 
70 NEXT 

75 POKE 34,10: PRINT 

80 INPUT "NUMERO " ; N : IF N < 1 OR N > 8 
THEN 120 

90 POKE 125, AD(N) — INT (AD(N) / 256) * 

256 : POKE 126, INT (AD(N) / 256) 
100 READ A$ : PRINT " "N" — " A$ 
110 GOTO 80 
120 END 



• Pourriez-vous me dire comment "chainer" diffe- 
rents programmes, sur une mime disquette (Pro- 
DOS) en gardant intactes, les variables ? PRINT 
CHR$(4) ; "RUN PROG" nest pas suffisant. Faut-il 
creer un fichier qui conserve ces donnees. puis qui 
les rappelle ? Merci de votre reponse. 

Georges V. (92210 St-CLOUD) 

A essayer sous ProDOS, bien sur : 
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DEMOl 









10 TEXT : HOME 
20 DIMA$(50) 

30 FOR I = 1 TO 50 : A$(l) = STR$(I) : NEXT 
40 PRINT CHR$(4) ; "CHAIN DEAA02, a 100" 
50 HOME : PRINT "NOUS VOICI REVENUS A 
DEMOl" 





DEM02 









100 FOR I = 1 TO 50 : PRINT A$(l) , : NEXT 
110 PRINT CHR$(4) ; "CHAIN DEMOl . a 50" 



• Aucun probleme pnur snuvpr m<=<: drmn< dO rn/on- 
nes sur disquette, mais impossible de reussir la 
meme operation avec les ecrans en 80 colonnes. 

Avez-VOUS une Solution ? Anonyme 
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Essayez la petite routine ci-apres : 

10 D$ = CHR$(4) : PRINT D$"PR£3" : PRINT : 
HOME 

20 FOR J = 1 TO 20 : A$ = A$ + "AAAA" : 

NEXT : FOR J = TO 22 
30 PRINT A$; : NEXT 

40 PRINT LEFT$(A$,79); : POKE 2039,193 : 
VTAB 1 : PRINT "" 
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50 VTAB 1 : POKE 49237,0 : PRINT CHR$(4) 
"BSAVE ECRAN1,A1024,L1016" : REM 
MEM AUX 

60 VTAB 1 : POKE 49236,0 : PRINT CHR$(4) 

"BSAVE ECRAN2,A1024,L1016" : REM 

MEM NORMALE 
70 HOME : REM AVEC PRODOS, AJOUTER UN 

POKE 48984,0 QUI EVITE LA MENTION 

"NO BUFFERS AVAILABLE" 
80 VTAB 1 : POKE 49237,0 : PRINT CHR$(4) 

"BLOAD ECRAN1 " : REM MEM AUX 
90 VTAB 1 : POKE 49236,0 : PRINT CHR$(4) 

"BLOAD ECRAN2" : REM MEM NORMALE 



• Comment faire pour afficher des minuscules en 
inverse sur APPLE lie ? 

Comment changer le curseur de /APPLE en souligne 
clignotant ? 

Et enfin, je ne comprends pas tres bien le fonction- 
nement de HIMEM et LOMEM ? 

JeonM. (32000 AUCH) 

Si vous essayez le mini-programme ci-apres, 
vous obtiendrez, immediatement avant le 
"GET R$", un etrange T/4/ — TOTO... en 
mode inverse. Par contre, a la suite de la ligne 
50, et a condition d'avoir une carte 80 colon- 
nes, votre Apple cheri vous affichera bel et 
bien, toujours en mode inverse : Toto — 
TOTO. Moralite : il faut activer la carte 80 
colonnes au debut du programme, puis passer 
en 40 colonnes par PRINT CHR$(17)... pour 
obtenir les minuscules en mode inverse. 

10 TEXT : HOME 

20 INVERSE : PRINT "Toto — TOTO" : NOR- 
MAL 

30 VTAB 22: GET R$ : PRINT 
40 PR£3 : PRINT CHR$(17) 
50 INVERSE : PRINT "Toto — TOTO" : 
NORMAL. 

Votre deuxieme question fait I'objet d une 
reponse, page 55. LOMEM vous permet de 
reserver un espace-memoire d la suite d un 
programme. Exemple : Menu va de l adresse 
2049 a I'adresse 4500, mais vous desirez 
icseivei 1024 uueis pour un siockage 
d'ecran. II suffit de fixer la valeur de LOMEM a 
4500 + 1024 soit LOMEM : 5524. Pourconnat- 
tre la valeur de LOMEM, chargez votre pro- 
gramme et tapez : 

PRINT PEEK(106) * 256 + PEEK(105) 

On peut proteger les pages graphiques en 
fixant LOMEM au-dessus (16384, pour la page 
1, 24576 pour la page 2). HIMEM protege au 
contraire une routine placee en haut de la 
memoire. On connait sa valeur en tapant : 

PRINT PEEK(1 16) * 256 -f PEEK(115) 
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INFORMATIQUE 




DIETETIQUE SUR APPLE* 

Quand un medecin et un infor- 
maticien — Jean-Michel Lichten- 
berger et Jean-Michel Lego — se 
rencontrent, de quoi parlent-ils ? 
Par exemple de dietetique, sujet 
actuel s'il en est ! 
Mais ils ne se contentent pas de 
parlotes. Passer aux actes cor- 



Adresses-ecran 
avec DEF FN 



Ce n'est qu'un exemple, 
parmi tant d'autres, d'uti- 
lisation de I'instruction 
DEF FN. 



■ parGuy-HACHETTE 

respond mieux a leur caractere, 
d'ou un livre que je vous con- 
seille : Dietetique sur Apple II. 

Vous y apprendrez surement 
comment calculer votre surface 
corporelle, decouvrir votre meta- 
bolisme energetique et regler 
votre consommation sur vos 
depenses, mais aussi a... 
programmer. 

Car cet ouvrage vous livre non 
seulement les secrets d'une ali- 
mentation equilibree, avec des 
tas de tableaux dignes de la col- 
lection Que sais-je ?, mais 
encore tous les programmes 
necessaires a leur mise en 
ceuvre. 

Les debutants pourront certes se 




en tireront alors le meilleur 
profit... 

* Editions du P.S.I. (224 pages, 120 F) 

APPLE MODEMS 
ET SERVEURS* 

La communication est a I'ordre 
du jour, mais reste un peu myste- 
rieuse pour bon nombre de gens, 



y compris lorsque ceux-ci, dispo- 
sant deja d'un Apple, sont pour- 
tant bien armes pour echanger 
des informations a I'interieur 
d'un reseau local, utiliser un 
modem, bref, se familiariser 
avec les outils telematiques. 

Plusieurs programmes leur 
feront assimiler les conventions 
de communication necessaires a 
la conception du logiciel- 
utilisateur en Basic, en Pascal... 
et meme en assembleur 6502. 

* Editions du P.S.I. (224 pages. 130 F) 

APPLE 

MODEMS 
ET SERVEURS 




10 TEXT : NORMAL : PRINT CHR$(12); CHR$(21): HOME 

20 DEF FN AD(X) = PEEK(X) + 256 * PEEK(X + 1) 

30 FOR I = 23 TO STEP -1: VTAB 1 + 1: HTAB 1: PRINT I; 

TAB(4) FN AD(40);: NEXT 
40 POKE 32,10: POKE 33,30: PRINT 

50 HOME : INVERSE : PRINT " ADRESSES-ECRAN AVEC (DEF 

FN) ": NORMAL 
60 PRINT: LIST 10,50 

70 FOR I = 2010 TO 2039: A = ASC(MID$("ENFONCEZ UNE TOU- 

CHEQUELCONQUE'M- 2009,1)): IF A = 32 THEN A = 96 
80 POKE l,A- 64: NEXT 

90 POKE - 16368,0: WAIT — 16384,128,127: POKE — 16368,0 
100 PRINT : VTAB 19: PRINT "(1) MENU DISQUETTE (2) FIN";: GET 

R$: POKE- 16368,0 
110 IF R$ = "l-'THEN PRINT: PRINT CHR$(4)"RUN MENU" 
120 IF R$ <> "2" THEN 100 
130 TEXT: HOME 
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INDEX des articles deja parus 



& Goto (p. 46) N° 4 

Goto acrobolique par le truchemonl de ('Ampersand 

Additions binaires (p. 19) N° 2 

Jeu dtdaclique pour apprendre 6 composer en binaire 

Adresse et longueur d'un programme (p. 36). N° 4 

Adresses-ecran (Fiche 4) (p. 41) N° 4 

Affichage accelere en langage 

machine (p. 63) N° 1 

Affichage par poke (Fiche 4) (p. 41) N° 4 

Afficher un texte, empiler... depiler (p. 38)... N° 4 

Assembleur (initiotion) 

Amortissement (p. 38) N° 1 

Avec ProCODE (p. 52) N° 1 

Boucles simples en langage machine (p. 50).. N° 1 

Boutabout (p. 30) N° 3 

Routine LM permellont de mettre boul 6 bout deux program- 
mes en Bosic 

Cadres express (p. 55) N° 4 

Suite de TMI (page 64) 

Calls (p. 31) N°4 

lis vous rendroni service... 

Carte langage (Fiche 3) (p. 41) N° 3 

Catalogue thematique (p. 19) N° 4 

Le catalogue compiet de votre disquette. dans I'ordre ulpha- 
betique(DOS 3.3) 

Charabia a decrypter (p. 10) N° 2 

Jeu dont lo solution a paru dans le numero 3 

Chiffres en dents de scie (p. 3) N° 4 

Oes graphes (Utilitoire en Basic el langoge mochine) 

Chiffres HGR (p. 12) N° 4 

Comment utiliser les chiffres d'une table de formes 

Copie d'ecran avec carte 80 colonnes (p. 40).. N° 1 
Cryptotexte (p. 13) N° 3 

Pour coder ou decoder a volonte (solution du charabia du 
numero 2) 

Creer des sous-volumes (p. 36) N° 4 

Creer des ecrans sur 80 colonnes (p. 3) N° 3 

Utilitoire dont vous ferez un usage intensif 

Creez vos ecrans en vous amusant (p. 17) N° 1 

Roccourcissez vos programmes en memorisont. sur la dis- 
quelle, les ecrans de presentation 

Datez vos programmes en ProDOS (p. 31) N° 3 

De bons livres, et en francais (p. 61) N° 1 

B§ n8uv§ll§§ p§r§p§£tiv§§ p8ur vg§ hi§to= 

grammes (p. 30) N° 1 

Un programme utilitoire indispensoble 

Des octets en deplacement (p. 26) N° 1 

Utilisez mieux to memoire auxiliaire de votre carte 80 
colonnes 

Dessine-moi un cercle (p. 47) N° 3 

Deux trues pour votre Apple (p. 40) N° 2 
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Disquettes d votre nom (p. 6) N° 1 

Personnalisez vos disquettes en DOS 3.3 

Dissequer un nombre (p. 38) N° 2 

Double listage en 80 colonnes (p. 1 1 ) N° 2 

Basic et langage mochine 

Decouvrez I'assembleur avec Madeleine 

Hode (p. 15) N° 3 

Desassemblage pratique (p. 18) N° 4 

Pour disassembler, sur votre ecron. autanl destructions que 
vous le desirez 

Echonge (swap) de variables (p. 35) N° 4 

Pour acceferer vos programmes de tri 

Ecrans condenses (p. 36) N° 3 

Memorises. I'essentiel et economiser les octets 

Ecrire en page 2 (HGR2) (p. 25) N° 1 

Ecriture sur pages graphiques (p. 54) N° 3 

Programme de Robert Faverge, Professeur ou Lycee Thiers de 
Marseille 

Effacement d'ecran par la gauche (p. 62) N° 1 

Est-ce une anagramme ? (p. 33) N° 4 

Un probleme 6 trailer dons un programme de jeu ou 
d'enseignement 

Evidemment quelle vous interesse... la 

memoire de votre Apple ! (p. 42) N° 1 

Fichiers programmes (Fiche 1) (p. 34) N° 1 

Fichiers EXEC (Fiche 1) (p. 34) N° 1 

Fonte speciale (p. 22) N° 4 

Vous pouvez la copier 

Gribouille (p. 3) N° 2 

Presentation de I original traitement de texte de Madeleine 
Hode 

Generateur de programmes (p. 33) N° 3 

Utilitoire creont automatiquement un programme de saisie de 
donnees 

Hexadecimal ou decimal, et vice versa (p. 44) N° 1 

HTAB en 80 colonnes (p. 48) N° 1 

Imprimantes etgraphisme (p. 56) N° 2 

Imprimez des listages formates de vos pro- 
grammes (p. 27) N° 2 

Editez correctemenl vos meilleurs programmes 

Inversion de HGR1 ou HGR2 (p. 37) N° 1 

INPUT par la routine $D52C (INLIN) (Fiche 

4) (p. 42) N°4 

Jeu (erreur) (p. 45) N° 1 

L'envers ne vaut pas I'endroit (p. 8) N° 1 

Jeu simple, et ameliorable 

La fenetre (Fiche 1) (p. 33) N° 1 

La page zero del'Apple lie (Fiche 1) (p. 33).... N° 1 

La personne X (p. 17) N° 3 

Jeu de logique elementaire 
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INDEX des articles deja parus 



Le curseur (Fiche 1) (p. 33) N° 1 

Les caracteres «souris» de I'Apple lie (p. 34).. N° 2 
Les fichiers aleatoires (p. 15) N° 2 

Enregistrements de toille fixo (iniliolion) 

Les fruits de la passion (p. 11) N° 4 

Graphisme (pour figurer les touches Pomme ouverTe el 
Pomme fermee) 

Les nuMibiei deUinuux el voire micro (p. 16). N° I 

Les problemes d'imprimante (p. 51) N° 4 

Les variables dans la memoire de 

I'Apple (p. 46) N°3 

Initiation a I'assembleur 

Lignes DATA ou lignes de Pokes (p. 55) N° 3 

List avec I'ampersand (p. 48) N° 1 

Listage et edition en langage machine (p. 14) N° 1 

Lftilitaire fort pratique 

Listage-controle d'un fichier «T» (p. 44) N° 2 

Logic-grilles (p. 57) N° 1 

Jeu visuel 

Logogrille (p. 50) N° 4 

La phrase cochee (recre) 

Ma chere vieille pomme (p. 41) N° 1 

Majuscules en inverse (p. 32) N° 3 

Une routine permellant dalficher une ligne dont seules Iss 
majuscules sont en inverse, par Y. Koenig 

Onerr Goto (p. 38) N° 2 

Ouest-Est (p. 38) N° 3 

Petit jeu geographique en mode Text 

Ouvrez done une fenetre ! (p. 43) N° 4 

Apprenez 6 ouvrir (et 6 relermer) une fenetre... en un eclair I 

Ouvrez I'oeil ! (p. 52) N° 3 

Jeu visuel ultra-court 

Pair ou impair avec quelques octets (p. 35).... N° 2 

Une petite etude des nombres aleatoires... pour le plaisir 

Partez en voyage avec Max (p. 12) N° 3 

Presentation du logiciel Max the Globe Trotter 

Petits trues d'assembleur (p. 37) N° 4 

La numeration hexodecimale 

Plus loin avec I'assembleur (p. 39) N° 2 

Plus loin avec la tonte GRAPH. CAR (p. 13) N° 4 

Comment lire (et meme modifier) une fonte de caracteres 
telle que GRAPH. CAR 

Poke... d'accord, mais a quelle adresse ? 
(P- 17) N°4 

Une petite routine pour connottre I adresse d'un point particu- 
lier de voire ecron 

Pokes utiles (p. 5) N° 1 

Pour oublier le jeu du pendu (p. 32) N° 2 

Une solution : le jeu de I'homme libre ! 

Pour 7 ronds ! (p. 15) N° 4 

Un jeu graphique essenliellement visuel 



Prefix (p. 36) N° 4 

Le mot de posse pour acceder 6 une disquette ProDOS 

Print using (p. 48) N° 1 

Programme en EXEC (Fiche 1) (p. 34) N° 1 

Programmer ? Bien sur que cela en vaut la 

peine ! (p. 39) N° 1 

PrnDO*; o\ la earto lanaago (p. A3) N° 3 

ProDOS et vous (Ram, Catalog, Run et 

Brun) (p. 44) N° 3 

Que va-t-il se passer ? (p. 54) N° 1 

Quelques notes pour votre Apple (p. 51 ) N° 3 

Saisie avec tri immediat (p. 49) N° 1 

Saisie d'un texte, suivie de son affi- 

chage (p. 45) N° 3 

Initiation 6 I'assembleur 

Saisie LM assistee (p. 48) N° 3 

Utllitoire destine 6 vous simplifier la vie 

Soustraction en langage machine (p. 43) N° 2 

Lo suite de I'initiotion 6 I'ossembleur 

Special Bonjour (p. 3) N° 1 

Tracer un cadre en langage machine (p. 64)... N° 1 
Transfer! d'un ecran de 80 colonnes en 
memoire auxiliaire (Fiche 2) (p. 41) N° 2 

Une fiche indispensable 

Transfert d'ecrans texte (Fiche 3) (p. 42) N° 3 

Un accessoire utile : le magnetophone (p. 31) N° 2 

Un certain jour de la semaine (p. 12) N° 1 

Quel jour etes-vous ne(e) ? 

Un drive pour 1 500 F ? Banco ! (p. 46) N° 2 

Pourquoi payer voire materiel au prix lort ? 

Un moyen de savoir si un fichier existe (p. 36) N° 1 
Une petite revision d'anglais (p. 28) N° 1 

La premiere ler,on (6 vous d'ecrire les suivontes I) 

Utilisation de la page 2 (TEXT) pour stocker un 

ecran (p. 48) N° 4 

Valeur ASCII apres GET (p. 48) N° 1 

Visublocs (p. 21) N° 3 

Un gros morceau... pour une nouvelle opproche d'une repre- 
sentation graphique des chiflres 

Vos chiffres valent bien un fromage ! (p. 49) N° 2 

La suite logique des histogrammes. avec une, certaine 
compatibility 

Vos menus o la carte (p. 5) N° 2 

En Basic et langoge machine... pour un affichage ultro-rapide 

Vous etes au courant, mais cela vous coute 
combien ? (p. 46) N° 1 

Petit utilitaire de gestion personnelle 

Vous avez emprunte ? (p. 27) N° 1 

Vous dites addition ? (p. 51) N° 1 

Initiation ou langoge machine 
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tremplin r 
micro J 



EN PROMOTION 



La reliure-ecrin de TREMPLIN MICRO (elle peut contenir 8 numeros) 



Bulletin de commande et d'abonnement 



Nom 

Adresse complete 
Code postal | [ | 



Prenom 



Ville 



LES DISQUETTES FONCTIONNENT SOUS DOS ET ProDOS 
(a condition de posseder une version Apple de ce SYSTEMS D EXPLOIT ATION) 



□ 




Abonnement a 6 numeros (un an) : FRANCE 


180 F 


□ 




DISQUETTEde TREMPLIN MICRO N°l (lie et lie) 


105 F 


□ 




DISQUETTE de TREMPLIN MICRO N°2 (lie et lie) 


105 F 


□ 




DISQUETTE de TREMPLIN MICRO N°3 (lie et lie) 


105 F 


□ 




DISQUETTE de TREMPLIN MICRO N°4 (lie et lie) 


105 F 


□ 




DISQUETTE de TREMPLIN MICRO N°5 (lie et lie) 


105 F 


□ 




NUMERO 1 de TREMPLIN MICRO 


30 F 


□ 




NUMERO 2 de TREMPLIN MICRO 


30 F 


□ 




NUMERO 3 de TREMPLIN MICRO 


30 F 


□ 




NUMERO 4 de TREMPLIN MICRO 


30 F 


□ 




NUMERO 5 de TREMPLIN MICRO 


30 F 


□ 




RELIURE-ECRIN 


35 F 



* Cochez la case de votre choix. 

Participation aux frais d'envoi (gratuit pour les abonnes) + 10 F 
Miimefo ci f abonne 6U de client : Total a payer F 

Merci de libeller votre reglement a I'ordre de TREMPLIN MICRO / Editions JIBENA 
Mode de reglement choisi : L~3 Cheque O Mandat-lettre D Carte Bleue 




N° de votre Carte Bleue 

Date d'expiration | |_ 

Montant 6 debiter 



Signature (obllgaiolre) 



letinaretoumera : TREMPLIN MICRO — Senille — 86100 CHATELLERAULT 
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GUY-HACHETTE 



§ pense a vos loisirs ! 




TREMPUN MICRO — Bimestrlel — Cost une publication des Editions JIBENA, 4. rue de la Cour-des-Noues, 75020 PARIS — S.A. ou 
capital de 3600000 F — Imprlme par CIT^-PRESS/PARIS — Depot legal 6 la date de parotion — Inscription 6 la Commission Pari- 
taire des Publications et Agences de Presse : en cours — Directeur de la Publication : Guy-Clement COGNE — Diffusion N.M.P.P. 
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Chaque mois, Cf //yJ 
le meilleur J 
de la 

technique JL 

et de la ** t 
pratique 

photo ! i 




Chez votre 
marchand de journaux ! 



